yeng 发表于 2014-4-17 22:45:36

delphi高人帮俺一下谢谢

老执行不了第四行都过不去,什马情况吗？郁闷死了
procedure TForm1.Button5Click(Sender: TObject);
begin
iflabel1.Caption='+' then
      edit3.Text:=inttostr(strtoint(edit1.Text))+(strtoint(edit2.text)))
elseiflabel1.Caption='-' then
      edit3.Text:=inttostr(strtoint(edit1.Text))-(strtoint(edit2.text)))
else iflabel1.Caption='*' then
   edit3.Text:=inttostr(strtoint(edit1.Text))*(strtoint(edit2.text)))
else iflabel1.Caption='/' then
   edit3.Text:=inttostr(strtoint(edit1.Text))/(strtoint(edit2.text)))
else
   messagebox(handle.'error','警告',mb_ok or mbstop);


end;

qydn 发表于 2014-4-18 10:46:41

edit3.Text:=FloatToStr(StrToFloat(edit1.Text)/(StrToFloat(edit2.text)))

by024 发表于 2014-4-18 13:01:53

inttostr(strtoint(edit1.Text)) 这个一会儿转整型，一会儿转回字符串，好像重复操作吧。

595835881 发表于 2014-5-12 14:17:36

把‘/’改成div试试
页: [1]
查看完整版本: delphi高人帮俺一下谢谢