procedure TForm1.Button1Click(Sender: TObject);
var result:real;
a,b:real;
begin
if (edit1.Text='')or(edit2.Text='') then
begin
ShowMessage('Пустые поля');
end;
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
result:=a+b;
Memo1.Lines.Add(edit1.Text+'+'+edit2.Text+'='+floattostr(result));
edit1.Clear;
edit2.Clear;
end;
выдает ошибку is not a valid floating point value
Последний раз редактировалось megbum; 27.06.2012 в 15:06.
Причина: неправельно написал вопрос