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 ?
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 ?
var
SL : TStringList;
begin
SL := TStringList.Create;
SL.Text := AnsiToUTF8(Memo1.Text);
SL.SaveToFile('D:\test.txt');
SL.Free;
end;
O to chodzi?
prosciej odpowiedz:
memo1.Lines.Text:=UTF8Encode(memo1.Lines.Text);
i komenda zapisujaca
memo1.Lines.SaveToFile('plik.txt');
:-))
@up:
Twój kod zamieni całość w memo na kodowanie UTF-8.
Autor chciał, aby tylko zapisany plik był w UTF-8;
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.