delphi程序问题 edit1＋edit2=edit3
我想实现的功能是，现有三个EDIT控键edit1、edit2、edit3
edit3显示的值是edit1与edit2的积，在不需要按键情况下实现
比如：在edit1和edit2分别输入1和2 光标点到edit3的时候会自动显示出他们和积
希望高手指教！最好详细一点！
procedure TForm1.Edit3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
edit3.Text :=inttostr(strToint(edit1.Text)*strToint(edit2.Text));
end;
按上面这个写进去之后点击EDIT3程序就出错了
Delphi(Pascal) code:
edit3.Text :=inttostr(strTointDef(edit1.Text,-1)*strTointDef(edit2.Text,-1));
楼上正解
谢谢大家，已经解决了！代码没有错，是因为之前留下了一些忘了删除对应的过程声明导致的！
呵呵~蹭点分来着
IntToStr()？ or FloatToStr()?
提醒下，考虑*完后，数据类型问题
希望高手指教！最好详细一点！
procedure TForm1.Edit3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
edit3.Text :=inttostr(strToint(edit1.Text)*strToint(edit2.Text));
end;
按上面这个写进去之后点击EDIT3程序就出错了
应该没有错误啊
调试下
相关问答：
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
如题：
我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时 ......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//删除数据
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......
有没有用delphi的兄弟想跳槽的？
地点在深圳
有的话就联系我：
QQ：377909364
email：e_hua999@163.com
读大学时候玩了一下, 帮xd顶一下
jf
up
帮顶，但不在深圳
JF
......
