如何将AnsiString字符转为ASCII码和将ASCII码转为AnsiString字符串?

stbigcrab 2006-07-31 11:24:28

如题，谢谢！

...全文

482 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

stbigcrab 2006-08-01

打赏
举报

回复

非常感谢！

我不懂电脑 2006-08-01

打赏
举报

回复

同意

flowercity 2006-08-01

打赏
举报

回复

up

wood542344 2006-08-01

打赏
举报

回复

原理基本就是楼上写的办法。

daydayup234 2006-08-01

打赏
举报

回复

将ASCII码转为AnsiString字符

void __fastcall TForm1::Button2Click(TObject *Sender)
{
unsigned short myASCIIvalue;
char c;

myASCIIvalue=97;
c=(char)myASCIIvalue;
ShowMessage(c);
}

daydayup234 2006-08-01

打赏
举报

回复

将AnsiString字符转为ASCII码

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString s="a1";
unsigned short myASCIIvalue;
myASCIIvalue=(unsigned short)s.c_str()[0];
ShowMessage(myASCIIvalue);
}

把字符串转换成16进制，送到DEMO中显示，就像miniHEX那样自己去显示16进制。 unsigned char *HexString：ASCII字符串函数返回AnsiString标准字符 const unsigned short HSCount：转换个数

delphi7和delphi2010直接因字符串编码方式不一样，不能直接调用，本例子是本人编写的ascii码和unico之间的转变。同时也可以解决很多delphi2010调用delphi7编写的动态库连接问题

1、字符与ASCII码的相互转换直接用int、char强制转换 字符串与ASCII码的相互转换要自己写个方法 public class String_ASCII { public static void ASCIItoString(String s) { String [] c=s.split(" "); //以空格隔开各个字符 for(int i=0;i<c.l...

//最常用的 string var str: string; {定义} begin str := '万一'; {赋值} ShowMessage(IntToStr(Length(str))); {长度是: 4} end; //长字符串 AnsiString; 在当前版本(2007)中的默认状态下, String 就是 AnsiString var str: AnsiString; begin str := '万一'; ShowMessage(IntToStr(Length(.

function UnicodeToASCII(ansi: AnsiString):string; var ws:WideString; i:Integer; rs:string; begin ws := ansi; for i:=1 to Length(ws) do begin if PByte(Integer(@ws[i])+1)^ = 0 t

13,825

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章