如何把edit控件中的字符串转成可以用于运算的数字?(10分)

  • 主题发起人 主题发起人 阿乐
  • 开始时间 开始时间

阿乐

Unregistered / Unconfirmed
GUEST, unregistred user!
用ord只能转换一个字符,不能达到要求,怎么办?
另外还有,ord(X)函数的参数X:ordinal究竟是什么类型?
 
StrToInt(Edit.Text)
 
edit3.Text :=inttostr(strtoint(edit1.Text)+strtoint(edit2.text));
 
让Sql Server 给你当计算器
把你要计算的字符串作为一个Sql语句传给Sql
例:  
strExp:=(1+2)*(12/3)/100
.SQL.Add('Select '+strExp+' As Totals')
.Open
.FieldByName('Totals').asFloat --就是你要的结果了

给分吧
 
楼上的太麻烦了,直接用 StrToInt(Edit.Text)就可以了。
 
可以先edit1中的内容进行判断,然后再进行计算
if key in('0'..'9') then
begin
strtoint(edit.text);
或strtofloat(edit.text)
end;
 
StrToInt StrToIntDef
StrToInt64 StrToInt64Def
StrToFloat StrToFloatDef
 
各位都没弄清楚,
我是要把字符串转成数字,比如ASCII代码
就是怎样把字符串abcd这样的转成12345的数字
形式,而且是连续字符串,不是一个一个的a,b,c,d
至于strtoint我很早就知道了
HeXiang Lee的答案我看不明白,请解释一下,在决定
是否给分。
 
你可以写一个过程来分解那个字符串呀!
比如:
var mystr:string;
begin
mystr:='Aihai';
showmessage(inttostr(ord(pchar(MyStr)[0])));
end;
我就不多写了:))
 
bihai和我原先想的一样,只不过感到略有些麻烦
可以接受。
 
后退
顶部