【原创】[Delphi]Unicode8与Ansi编码转换 [复制链接]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
  Button1: TButton;
  Edit1: TEdit;
  Edit2: TEdit;
  Button2: TButton;
  Edit3: TEdit;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
private
  { Private declarations }

public
  { Public declarations }
  utf:string;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
temp:String;
testFile:TStringList;
begin
testFile:=TSTringList.Create;
temp:=AnsiToUTF8(self.Edit1.Text);
utf:=temp;
//temp:=self.Edit1.Text;
testFile.Add(temp);
testFile.SaveToFile('C:\temp\test.txt');
self.Edit2.Text:=temp;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
temp:string;
begin
temp:=UTF8toAnsi(self.utf);
self.Edit3.Text:=temp;
end;

end.