Текстовый файл в Unicode

[AXS]

Как создать текстовый файл, записать в него строки в юникоде, сохранить и снова открыв прочитать?... (во, блин написал..)

[Роман Радер]

Сегодня уже обсуждалось в разделе сетей.
было уже

[AXS]

Сообщение от Роман Радер

Сегодня уже обсуждалось в разделе сетей.
было уже

К сожалению - не то...
с умляутами не прокатывает...

[ViktorXP]

Сохраняем в файл

var
  HF: THandle;
  D: Dword;
  WS: WideString;
begin
  WS:= 'ﻑﻕﻤﻚﻺﻜﻅﺿﻡкм   č ĉĕ фĖ ĈĎĐ ąĕ Ē'; // незнаю покажет ли форум эти символы или заменит их на  вопросы
  HF := CreateFile('C:\test.txt', GENERIC_WRITE, 0, nil, CREATE_NEW, 0, 0);
  if HF <> INVALID_HANDLE_VALUE then
  try
    WriteFile(HF, PChar(WS)^, Length(WS)*2,D, nil);
  finally
    CloseHandle(HF);
  end;
end;

Читаме из файла

var
  HF: THandle;
  D,S:  DWord;
  WS: WideString;
begin
  HF := CreateFile('c:\test.txt', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  if HF <> INVALID_HANDLE_VALUE then
  try
    S := GetFileSize(HF, nil);
    SetLength(WS, s div 2);
    ReadFile(HF, PChar(WS)^, S,D, nil);
  finally
    CloseHandle(HF);
  end;
end;

[AXS]

Спасибо, то что нужно.
Один момент, какую роль играет D:DWord?

[ViktorXP]

Один момент, какую роль играет D:DWord?

в переменную D процедура записи и чтения возвращают реальный размер записаных или считаных данных. Этот парамтр удобно использовать для контроля (хотя в некоторых ситуацыях без него просто не обойтись)