Проблема с юникодом при сохранении в файл символа.

[Khayzenberg]

Доброго времени суток! Есть следующая процедура:

procedure TfrmMain.Button1Click(Sender: TObject);
var mtf:TStringList;
    ch:WideChar;
begin
 mtf:=TStringList.Create;
 ch:=#9731;
 mtf.Append(ch);
 mtf.SaveToFile('c:\temp\3.txt');
 FreeAndNil(mtf);
 mtf:=TStringList.Create;
 mtf.LoadFromFile('c:\temp\3.txt');
 ch:=mtf[0][1];
 Memo1.Lines.Append(IntToStr(Ord(ch)));
 FreeAndNil(mtf);
end;

Назначение ее следующее, она сохраняет в файл символ с таблицы юникода(снеговик) посредством TStringList. А при чтении с файла символа, уже считывается не снеговик а знак вопроса с кодом > 63.
И как исправить эту несправность?

[Stilet]

Ты проверил в файле действительно сохранится 9731h?

[Sibedir]

TStringList.Text - это String. А тут нужно явно указать, что это WideString. Или используйте File of WideChar или как-то так

type
  TByteArray = Array of Byte;
var
  SL: TStringList;
  ws: WideString;
  s: String;
begin
  ws := #9731;
  s := String (TByteArray (ws));

  SL := TStringList.Create;
  SL.Text := s;
  SL.SaveToFile('d:\temp\3.txt');
  FreeAndNil(SL);

  SL := TStringList.Create;
  SL.LoadFromFile('d:\temp\3.txt');
  s := SL.Text;
  FreeAndNil(SL);

  ws := WideString (TByteArray (s));
  Memo1.Lines.Append(IntToStr(Ord(ws[1])));
end;

[FaTaL]

В последних версиях дельфина есть TEncoding

[Khayzenberg]

Благодарю всех за ответы самый лучший способ это при сохранении и загрузки файлов дописать второй параметр: TEncoding.Unicode

SL.SaveToFile('c:\temp\3.txt', TEncoding.Unicode);
....
SL.LoadFromFile('c:\temp\3.txt', TEncoding.Unicode);

[FaTaL]

Лучший то он может быть лучший. Но это если только у тебя одна из последних версий дельфина. Хотя я сам сторонник, чтобы люди писали на последних версиях. не зря же Embarcadero старается для нас.