5,387
社区成员
发帖
与我相关
我的任务
分享字符串转字符怎么转？？
我用
midstr(a,1,1);
取出一个字符，
想用ord(midstr(a,1,1));取出这个字符的ascii值，无耐类型不配
我这样转换也不行
ord(pchar(midstr(a,1,1)));
那位大侠有好的方法？？
midstr(a,1,1);
取出一个字符，
想用ord(midstr(a,1,1));取出这个字符的ascii值，无耐类型不配
我这样转换也不行
ord(pchar(midstr(a,1,1)));
那位大侠有好的方法？？
...全文
请发表友善的回复…
发表回复
aminic 2003-08-20
- 打赏
- 举报
这样写对么？不对吧？？？试的怎么不行？
ly_liuyang 2003-08-20
- 打赏
- 举报
ord(（midstr(a,1,1)）［1］);
hiflower 2003-08-20
- 打赏
- 举报
Ord(s[i]) 就行啦
jacky_shen 2003-08-20
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
S := 'abcdef';
ShowMessage(IntToStr(Ord(S[1]))); //a的序号
end;
var
S: string;
begin
S := 'abcdef';
ShowMessage(IntToStr(Ord(S[1]))); //a的序号
end;
zjqyb 2003-08-20
- 打赏
- 举报
ord(midstr(a,1,1)[1］)
fsybaby 2003-08-20
- 打赏
- 举报
我有一种方法:
function lettertoascii(letter:char):integer;
var i:integer;
begin
for i = 1 to 128 do
if chr(i)=letter then lettertoascii:=i;
end;
不知道行不行
希望行
function lettertoascii(letter:char):integer;
var i:integer;
begin
for i = 1 to 128 do
if chr(i)=letter then lettertoascii:=i;
end;
不知道行不行
希望行
