Jak zpaisac zawartosc memo1 do pliku z kodowaniem UTF8

0

Jak zapisac zawartosc memo1.text memo1.lines do pliku z kodowaniem UTF8?

memo1.Lines.SaveToFile('plik.txt');

W jaki sposob zawartosc memo dac do UTF8 przy zapisie pliku ?

0
var
  SL : TStringList;
begin
  SL := TStringList.Create;
  SL.Text := AnsiToUTF8(Memo1.Text);
  SL.SaveToFile('D:\test.txt');
  SL.Free;
end;

O to chodzi?

0

prosciej odpowiedz:

memo1.Lines.Text:=UTF8Encode(memo1.Lines.Text);
i komenda zapisujaca
memo1.Lines.SaveToFile('plik.txt');

:-))

0

@up:
Twój kod zamieni całość w memo na kodowanie UTF-8.
Autor chciał, aby tylko zapisany plik był w UTF-8;

0

Wydaje się że Delphi 2010 wspiera unicode więc wszystkie zapisy są domyślnie unicode i typ string jest domyślnie typu UnicodeString więc chyba nie potrzeba niczego zmieniać w kodzie? Jeśli mamy źródła bibliotek innych firm to w większości wypadków wystarczy zrobić build i one zostaną dołączone jako unicode bez potrzeby dalszej w nie ingerencji.

1 użytkowników online, w tym zalogowanych: 0, gości: 1