请问：下面的这是哪有毛病的了？

Question

var
i,t:single;
begin
i:=0.0;
t:=0.0;
if (edit1.Text='') or (edit1.Text='') then
begin
showmessage('数据不足，请确认');
exit;
end;
i:=strtofloat(edit1.Text);
t:=strtofloat(edit2.Text);
end;

Answer 1

if (edit1.Text='') or (edit1.Text='') then
应该是if (edit1.Text='') or (edit2.Text='') then 吧

Answer 2

var
i,t:single;
bvalid : boolean;
begin
  bvalid := false;
try
  i:=strtofloat(edit1.Text);
  t:=strtofloat(edit2.Text);  
  bvalid := true;
except
end;  if not bvalid then 
    showmessage('数据不足，请确认');
end;

Answer 3

function getdata: Integer;
var
  i,j: double;
begin
  result := -1;
  i := 0.00;
  j := 0.00;
  if (edit1.Text = '') or (edit2.Text = '') then
  begin
    ShowMessage('对不起，数据不足请确认');
    exit;  
  end;
  i := StrToFloat(edit1.Text);
  j := StrToFloat(edit2.Text);
  result := 0;
end;