SHPORA.net :: PDA

[ Back ]

begin

if Edit1.Text<>'' then begin если Edit1.text не пустое тогда

a:=strtofloat(Edit1.Text); присваеваем переменной «а» значение Эдит1 переведённое из строковой в переменную с плавающей запятой в противном случае выводится «введите значение»

Edit1.Text:=''; Очищаем эдит1

ch:='+'; сохраняем код операции

end else

ShowMessage('Введите значение!');

end;