Delphi XE5 Android手机端转换Ansi字符串


本文整理自网络,侵删。

 介绍

本文章介绍了Delphi XE5 Android手机端转换Ansi字符串,本代码是“浙江-樵夫”开发的一个程序,用来对字符串进行转换,主要代码是:

// 读入Ansi(简体中文)文件...
procedure TForm1.CornerButton3Click(Sender: TObject);
var
   Stream: TMemoryStream;
begin
   Stream:=TMemoryStream.Create;
   Stream.LoadFromFile(TPath.GetPublicPath+'/testfile.txt');
   SetLength(Data1,Stream.Size);
   Stream.read(Data1,Stream.Size);
   memo1.Lines.Add('读入Ansi文件成功!长度='+inttostr(length(Data1))+'字节');
   FreeAndNil(Stream);
end;

//
// ANSI(简体中文) --> Default...
procedure TForm1.CornerButton4Click(Sender: TObject);
begin
   StringValue:=StringOf(TEncoding.Convert(TEncoding.GetEncoding(936),TEncoding.Default,Data1));
   memo1.Lines.Add('转换成手机字符串成功!共'+inttostr(Length(StringValue))+'字符');
   memo1.Lines.Add(StringValue);
end;

//
// Default --> Ansi(简体中文)...
procedure TForm1.CornerButton5Click(Sender: TObject);
begin
   Data2:=TEncoding.Convert(TEncoding.Default,TEncoding.GetEncoding(936),bytesof(StringValue));
   memo1.Lines.Add('转换为Ansi串成功!长度='+inttostr(length(Data2))+'字节');
end;

//
// ANSI写回文件...
procedure TForm1.CornerButton6Click(Sender: TObject);
var
   Stream: TMemoryStream;
begin
   Stream:=TMemoryStream.Create;
   Stream.Write(Data2,length(Data2));
   Stream.Position:=0;
   Stream.SaveToFile(TPath.GetPublicPath+'/testfile.txt');
   FreeAndNil(Stream);
   memo1.Lines.Add('ANSI串写回文件成功!');
end;

//
// 清屏...
procedure TForm1.CornerButton7Click(Sender: TObject);
begin
   Memo1.Lines.Clear;
end;

//
// 程序启动时,显示编码参数...
procedure TForm1.FormCreate(Sender: TObject);
begin
   if TEncoding.Default=TEncoding.Unicode then
       memo1.Lines.Add('TEncoding.Default=Unicode');
   if TEncoding.Default=TEncoding.ANSI then
       memo1.Lines.Add('TEncoding.Default=ANSI');
   if TEncoding.Default=TEncoding.UTF7 then
       memo1.Lines.Add('TEncoding.Default=UTF7');
   if TEncoding.Default=TEncoding.UTF8 then
       memo1.Lines.Add('TEncoding.Default=UTF8');
   memo1.Lines.Add('系统就绪,请继续测试...');
    memo1.Lines.Add('');
end;

相关阅读 >>

Delphi spcomm控件的安装

Delphi 调出windows 系统时间设置对话框

Delphi listview1 图标不齐,错乱解决方法

Delphi webbrowser1 保存文档为 .mht

Delphi实时监视应用程序内存使用量

Delphi检测用户超过5分钟没有操作键盘或鼠标

Delphi 定时鼠标模拟点击

Delphi 随鼠标移动的十字线的快速画法

Delphi 在线程中运行窗体

Delphi 10.3新特性 内联变量

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...