本文整理自网络,侵删。

uses System.NetEncoding;
procedure TForm1.Edit1Ch
ange(Sender: TObject);begin Edit2.Text := TNetEncoding.Base64.Encode(Edit1.Text);end;
procedure TForm1.Edit2Change(Sender: TObject);begin Edit3.Text := TNetEncoding.Base64.Decode( Edit2.Text );end;
相关阅读 >>
Delphi7 中tstringlist的delimiter delimitedtext有bug,字符串分割有问题
Delphi 将strings合并成一个逗号分隔的字符串,用于sql
更多相关阅读请进入《Delphi》频道 >>