输入完edit1和edit2后，EDIT3就自动计算出结果后清空报错

pfrynwgkq

各位大神好。我是菜鸟求帮助。
如何图所视，当我清空Eeit2时，就报错。
我是想当输入完edit1和edit2后，EDIT3就自动计算出结果。
然后可以全部清空充填；

fx.zip (208.31 KB, 下载次数: 2)

2016-1-6 23:01 上传

点击文件名下载附件

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Edit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
   uses re;
{$R *.dfm}

procedure TForm2.Edit2Change(Sender: TObject);
var
i:string;
begin
   i:=FloatToStr(StrtoFloat(edit2.Text));
  begin
  if i='0'  then
   edit3.Text:= '0'
   else
     edit3.Text:=floattostr( StrToFloat(edit1.text) /   StrToFloat(edit2.text) );
   end;
end;


procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if (self.Components[i] is Tedit) then
begin
Tedit(Components[i]).text:= '0';
end;
end;
end;


end.

泡饭

strtofloat改成strtofloatdef

pfrynwgkq

泡饭 发表于 2016-1-7 20:00
strtofloat改成strtofloatdef

这一部分已经解决了。感谢大神指点

v36160

都好牛。刚学就直接上if语句了