[DELPHI] Zapisywanie do UTF8

Witam

Mam problem chcę zapisać zawartość Memo do pliku w kodowaniu UTF8(najlepiej bez BOM).

Jak to zrobić?

Z góry dzięki za odpowiedz.

var Plik: TextFile;
  Linia: String;
begin
AssignFile(Plik,'nazwa.txt');
Rewrite(Plik);
Linia := AnsiToUtf8(Memo1.Lines.Text);
Write(Plik,Linia);
CloseFile(Plik);
end;

I jeszcze jedno czy takie procedury bedą działać poprawnie:

//--------------------------------------------------------------------------
procedure TForm1.p_zapisz_utf8(sciezka:string);
begin
Memo2.Lines.Text := AnsiToUtf8(Memo1.Lines.Text);
Memo2.Lines.SaveToFile(sciezka);
end;
//--------------------------------------------------------------------------
procedure TForm1.p_otworz_utf8(sciezka:string);
begin
Memo2.Lines.LoadFromFile(sciezka);
Memo1.Lines.Text := Utf8ToAnsi(Memo2.Lines.Text);
end;

Memo2 - jest to temp :-)

loczi napisał(a)

I jeszcze jedno czy takie procedury bedą działać poprawnie:

//--------------------------------------------------------------------------
procedure TForm1.p_zapisz_utf8(sciezka:string);
begin
Memo2.Lines.Text := AnsiToUtf8(Memo1.Lines.Text);
Memo2.Lines.SaveToFile(sciezka);
end;
//--------------------------------------------------------------------------
procedure TForm1.p_otworz_utf8(sciezka:string);
begin
Memo2.Lines.LoadFromFile(sciezka);
Memo1.Lines.Text := Utf8ToAnsi(Memo2.Lines.Text);
end;

Memo2 - jest to temp :-)

Napisze je w delphi i zobaczysz czy beda dzialaly.

Chodzi mi o to czy te funkcje będą działać w KAŻDYM wypadku, bo jak na razie działają bez zarzutów.