Сохранение символа юникода в txt файл

Posted by Chas under Delphi

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

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;

Khayzenberg

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

....

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

тема на форуме

Похожие статьи

• Как TStringList сохранить в конец файла?
• Случайная строка из текстового файла
• Удалить повторяющихся строк в текстовом файле
• Если текстовый файл существует, то открыть его и добавить перед третьей строкой новую строчку текста
• При успешной загрузки тхт файла в richedit, в label вывести сообщение
• Cчитать из файла Unicode строки
• Как проверить, что структура txt файла не нарушена
• Открыть .txt файлы по очереди и найти нужную строку
• Загрузка из txt файла структуры, содержащую tstringlist
• Сортировка имен файлов в TStringList