delphi高人帮俺一下谢谢

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

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

老执行不了第四行都过不去,什马情况吗？郁闷死了
procedure TForm1.Button5Click(Sender: TObject);
begin
  if  label1.Caption='+' then
   edit3.Text:=inttostr(strtoint(edit1.Text))+(strtoint(edit2.text)))
  else  if  label1.Caption='-' then
   edit3.Text:=inttostr(strtoint(edit1.Text))-(strtoint(edit2.text)))
  else if  label1.Caption='*' then
   edit3.Text:=inttostr(strtoint(edit1.Text))*(strtoint(edit2.text)))
  else if  label1.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试试

账号		自动登录	找回密码
密码			立即注册