Сохранить файл в блокноте в формате UTF-8

[Alar]

Работаю с файлами в формате UTF-8, чтобы перевести в Ansi я использую функцию - Utf8toAnsi.

Вопрос такой, как сохранить в блокноте файл, чтобы он думал, что это формат UTF-8.

[SunKnight]

Хочу уточнить, Вы переводите ACSI в UTF-8, а зате хотите этот АНСИ код сохранить в ТХТ с кодировкой UTF-8. (все программно)?

[FaTaL]

А обратно не пробывали сделать ANSIToUTF8 ?

[Alar]

Смысл в том, что файлике должна быть метка, что текст в файле записан в кодировке UTF-8

[Квэнди]

А есть какой-нибудь существующий UTF-8 файл, который блокнот пр иоткрытии распознает как UTF-8 ?

[Ins]

Сигнатуру UTF-8 записывать перед данными нужно:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: TStream;
  Sign: Cardinal;
begin
  S := TFileStream.Create('C:\1.txt',fmCreate);
  try
    Sign := $BFBBEF;
    S.WriteBuffer(Sign, 3);
    S.WriteBuffer(PChar('Hello World!')^, 12);
  finally
    S.Free;
  end;
end;

[Alar]

Ins, спасибо, все работает.

Если текст нужно сохранить из memo -

 S.WriteBuffer(PChar(memo3.Text)^, length(memo3.text));