|
|
|
Změna kódování textu
|
05.12.2009
|
Úvod
Funkce převede text z kódování ANSI na UTF8 a zpět.
Prvky
Button1 (Caption: Tam)
Button2 (Caption: Zpět, Enabled: False)
Memo1 (Lines: žížala)
Kód
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.Text := ANSItoUTF8(Memo1.Lines.Text);
Memo1.Lines.Text:=sl.Text;
sl.Free;
Button1.Enabled:=False;
Button2.Enabled:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.Text := UTF8toANSI(Memo1.Lines.Text);
Memo1.Lines.Text:=sl.Text;
sl.Free;
Button1.Enabled:=True;
Button2.Enabled:=False;
end;
Doplnění
Podrobnosti hledejte v helpu pod "character set conversions".
|
|
|
