//应用delphi自带的EncdDecd单元
procedure TForm1.btn3Click(Sender: TObject);
var
s: string;
begin
s := ‘abcdefg';
s := AnsiToUtf8(s);
s := EncodeString(s); //DecodeString
showmessage(s);
end;
//应用delphi自带的EncdDecd单元
procedure TForm1.btn3Click(Sender: TObject);
var
s: string;
begin
s := ‘abcdefg';
s := AnsiToUtf8(s);
s := EncodeString(s); //DecodeString
showmessage(s);
end;