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)


相关推荐

  • windows软连接简单建立删除「建议收藏」

    软连接基本命令:建立(mklink),删除(rmdir);基本场景:1将电脑F盘下目录bpe\source下文件aa.txt和文件夹bb通过软连接连接至目录bpe\dest下1.1命令语句:mklink/JF:\bpe\dest\aa.txt       F:\bpe\icc\source\aa.txtmklink/JF:\bpe\dest\bb …

  • velocity语法[通俗易懂]

    velocity语法[通俗易懂]一:基本语法:1.#set(#a="a")$a##输出语句时直接写变量的名称即可2.判断语句:#if($a=="a")##判断语句没有括号,也是

  • Centos查看系统版本「建议收藏」

    Centos查看系统版本「建议收藏」1.查看已经安装的CentOS版本信息CentOS的版本号信息一般存放在配置文件当中,在CentOS中,与其版本相关的配置文件中都有centos关键字,该文件一般存放在/etc/目录下,所以说我们可以直接在该文件夹下搜索相关的文件。其中存放其版本配置信息的文件为“centos-release”,翻译过来就是“CentOS的发行版”,所以说我们可以在这里查看CentOS相应的版本信息。upstream,上游的意思,centos是由RHEL衍生而来。ll/et…

  • Java安全之Cas反序列化漏洞分析

    Java安全之Cas反序列化漏洞分析0x00前言某次项目中遇到Cas,以前没接触过,借此机会学习一波。0x01Cas简介CAS是Yale大学发起的一个开源项目,旨在为Web应用

    2021年12月13日
  • pycharm 编码怎么设置_pycharm编码格式

    pycharm 编码怎么设置_pycharm编码格式Python中默认的编码格式是ASCII格式,在没修改编码格式时无法正确打印汉字,所以在读取中文时会报错。有两种解决方法。一种是在python的编程工具Pycharm中设置默认编码pycharm下载地址:http://www.jetbrains.com/pycharm/选择社区版即可,免费。设置方法如下:入口A:工具栏-File-DefaultSettings-Editor-File…

发表回复

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

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