Delphi xe System.NetEncoding 字符串base64编码解码

本文整理自网络，侵删。

 


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;
 

相关阅读 >>

Delphi格式化函数format、formatdatetime和formatfloat

Delphi区分汉字和字母的函数

Delphi 获取计算机名称 函数

Delphi 让程序只运行1次

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi 禁止截屏printscreen

Delphi byte、pbyte、tbytes的转换

Delphi 时间年月日，星期

Delphi format 另类用法

Delphi try abort、exit except 、finally end 执行情况

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi xe System.NetEncoding 字符串base64编码解码