为什么我不能提问?就因为我是刚学的菜鸟?
谁教教我这个白痴问题啊~~~
我现在实现了输入非数字就报错的代码,很垃圾的,但是我接下来再写入实现2数相+的的代码时Delphi就报错,我实在想不出是怎么回事,我真的很菜,能帮我看看吗,以下是我的垃圾代码
procedure TForm1.Button1Click(Sender: TObject);
const set1=['1','2','3','4','5','6','7','8','9','0','.'];
var
ai,bi:string;
i,n,m:integer;
s1,s2,s3:real;
begin
ai:=edit1.Text;
n:=length(ai);
bi:=edit2.Text;
m:=length(bi);
for i:=1 to ndo
if not((ai in set1) and (bi in set1)) then
begin
messagedlg('请输入数字!',mtError,[mbOK],0);
break;
end;
if (edit1.Text='') and (edit2.Text='') then
messagedlg('请输入数字!',mtError,[mbOK],0);//这些是实现输入非数字和小数点以及不输入数字是提示的代码
else
begin
s1:=strtofloat(edit1.text);
s2:=strtofloat(edit2.Text);
s3:=s1+s2;
edit3.Text:=floattostr(s3);//这些相加代码一添上去就报错,程序出来了,但点击按钮就死机了....
end;
end;
end.