Question

delphi5中把edit1中的数字个位加十位的和在于edit2中个位加十位的和相加然后给edit3

Answer 1

var s,ss:string;
begin
s:=edit1.Text;
ss:=Edit2.Text;
Edit3.Text:=IntToStr(StrToInt(Copy(s,Length(s),1))+strtoint(Copy(s,Length(s)-1,1))+
StrToInt(Copy(s,Length(ss),1))+strtoint(Copy(s,Length(ss)-1,1)));
end;

追问

运行完了出错了

追答

我这里运行没问题。你是delphi5？ 还有出错是代码是什么？

追问

是 的delphi5 运行没错 但是点确定却提示出错了，应该是空值不可以。还有就是运行几次后也会报空值不可以~

追答

是啊，空值肯定会报错啊，你自己加个空值和非数值检测啊。

Answer 2

function calc(x:integer):integer ;
var
m,n:integer;
begin
m:=(x mod 100) div 10;
n:=(x mod 100) mod 10;
result:=m+n;
end;

调用的时候就可以直接写
edit3.text:=inttostr(calc(strtoint(edit1.text))+calc(strtoint(edit2.text)));