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

delphixe5 android,Delphi XE5 Android手机端转换Ansi字符串介绍本文章介绍了DelphiXE5Android手机端转换Ansi字符串,本代码是“浙江-樵夫”开发的一个程序,用来对字符串进行转换,主要代码是://读入Ansi(简体中文)文件…procedureTForm1.CornerButton3Click(Sender:TObject);varStream:TMemoryStream;beginStream:=TMemoryStream….

大家好,又见面了,我是你们的朋友全栈君。

介绍

本文章介绍了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;

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/161325.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • Xshell 官方免费版下载流程

    Xshell 官方免费版下载流程官网地址:https://www.netsarang.com所有产品下载地址:https://www.netsarang.com/download/前言网上流传有很多的Xshell的激活成功教程版、绿色版。但是Xshell多版本存在后门,或上传用户服务器账号密码。这是很可怕的,服务器的账号、密码有可能泄露。实际上官方针对个人账户是有提供免费版本来下载。下载免费版…

    2022年10月11日
  • 网络基础知识–IP地址[通俗易懂]

    网络基础知识–IP地址[通俗易懂]IP地址分类|子网掩码|子网划分

  • arping命令用法

    arping命令用法arping命令使用说明BusyBoxv1.17.3(2011-07-2017:01:30CST)multi-callbinary.Usage:arping[-fqbDUA][-cCNT][-wTIMEOUT][-IIFACE][-sSRC_IP]DST_IPSendARPrequests/repliesOptions: -f Quiton…

  • 联合索引(复合索引)和单个索引[通俗易懂]

    联合索引(复合索引)和单个索引[通俗易懂]背景: 为了提高数据库效率,建索引是家常便饭;那么当查询条件为2个及以上时,我们是创建多个单列索引还是创建一个联合索引好呢?他们之间的区别是什么?哪个效率高呢?我在这里详细测试分析下。一、联合索引测试注:Mysql版本为5.7.20创建测试表(表记录数为63188):CREATETABLE`t_mobilesms_11`( `id`bigint(20)NOTNUL…

  • springBoot+mybatis报错Property ‘sqlSessionFactory’ or ‘sqlSessionTemplate’ are required

    springBoot+mybatis报错Property ‘sqlSessionFactory’ or ‘sqlSessionTemplate’ are required报错为:Invocationofinitmethodfailed;nestedexceptionisjava.lang.IllegalArgumentException:Property’sqlSessionFactory’or’sqlSessionTemplate’arerequired日志很长,报错在末尾2018-07-1213:56:41.760 I…

  • 如何获取dropdownlist的值_mycat 数据库绑定

    如何获取dropdownlist的值_mycat 数据库绑定这几天遇到再DropDownList中,如何将数据库中的内容与DropDownList下拉框中的值关联起来,步骤如下:(1)建立要关联的数据库(在本例中假设为dept);要定义一个数据表用来取得这个表中的内容,代码如下:publicDataTableReaderSelectDept(){DataTableReaderdr=null;try{RunSQL

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号