W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-10 #2 s:string; a:integer; try a:=integer(s[1])
E Expert Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-10 #3 好像没有函数，不过可以用别的方法： var isNumber:Boolean; try strtoint(copy(s,1,1)); isNumber:=true; except isNumber:=False; end;
好像没有函数，不过可以用别的方法： var isNumber:Boolean; try strtoint(copy(s,1,1)); isNumber:=true; except isNumber:=False; end;
B BaKuBaKu Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-11 #4 不 不 不 至于吧。 if S[1] in ['0','1',...,'9'] then ...
C cat.yy Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-11 #6 告诉你一个看家工夫： 把字符串中的那个字符取出来（假如赋给string型变量 aa ） 这样： try strtoint(aa); except on E:EConvertError do //这是DELPHI的类型转换错误提示 ShowMessage('这不是数字'); else ShowMessage(‘这是数字’);
告诉你一个看家工夫： 把字符串中的那个字符取出来（假如赋给string型变量 aa ） 这样： try strtoint(aa); except on E:EConvertError do //这是DELPHI的类型转换错误提示 ShowMessage('这不是数字'); else ShowMessage(‘这是数字’);
Z zwhc Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-13 #8 >>if S[1] in ['0','1',...,'9'] then ... 可以稍作简化： if S[1] in ['0'..'9'] then ... 我正想问如何将 copy(S,5,1) 转化为字符型，想不到只要用 S[5]即可，又省了我一笔银子。 if length(edit1.Text)>=0 then if edit1.Text[4] in ['0'..'9'] then caption :=caption+' a';
>>if S[1] in ['0','1',...,'9'] then ... 可以稍作简化： if S[1] in ['0'..'9'] then ... 我正想问如何将 copy(S,5,1) 转化为字符型，想不到只要用 S[5]即可，又省了我一笔银子。 if length(edit1.Text)>=0 then if edit1.Text[4] in ['0'..'9'] then caption :=caption+' a';
