如何得到一个字符串中第2个字母所对应的ASCII值?急(100分)

如何得到一个字符中第2个字母所对应的ASCII值
如得到label1.caption(string类型)的第二个字母，所对应的ASCII值
用函数integer（）或ord（）如何实现呢?

s:string;
b:byte;
s:=label1.caption;
b:=byte(s[2]);

试试！

function xh_mid(const data:string;start,count:integer):string;
begin
if(start>length(data))or(start<0) then start:=0;
if ;count>length(data)-start then count:=length(data)-start;
besult:=copy(data,start,count);
end;

Procedure Button1Click(sender:Tobject);
var i:string;
begin
i:=xh_mid(Label1.caption,2,1);
ord(i);
..........

thank

agree with honestman,

s:string;
b:byte;
s:=label1.caption;
b:=ord(s[2]);