[Alchemist]

Delphi 7
нужно сохранить файл в кодировке utf-8
делаю так:

sl.add(AnsiToUtf8(str));
Sl.SaveToFile(d:\text.txt);

открываю файл - кодировка ANSI?

[PhoeniX]

Ну нету в Delphi 7 "коробочной" поддержки юникода... допиши сохранение в юникод сам - благо, сорцы у компонентов открытые. Там работы то на 10 минут при использовании TFileStream (ну, и TBrain...)

[NumLock]

в Memo1 исходный текст:

Код:

var
  StringList: TStringList;
begin
  StringList:=TStringList.Create;
  StringList.Text:=UTF8Encode(Memo1.Text);
  StringList.SaveToFile('c:\Downloads\chupakabra.txt');
  StringList.Free;
end;

в chupakabra.txt будет в UTF8.

[Alchemist]

неа) ANSI. в 7 делфе сохраняет так(

[NumLock]

Сообщение от Alchemist

неа) ANSI. в 7 делфе сохраняет так(

что неа? на 7 Delphi и сделано http://data.cod.ru/91967

[Alchemist]

код был один в один! =) ну за исключением, я путь задавал внутри.. после компиляции сохраняет в ANSI )))
Сейчас нет возможности проверить на той машине... Во вторник проверю)) Но спасибо, что со мной возишься)