вівторок, 24 квітня 2018 р.
понеділок, 23 квітня 2018 р.
суботу, 21 квітня 2018 р.
Вивчаємо Кнопку, Напис та Поле
Проекту із використанням Кнопок, Написів, Полів
В Лазарусі я використав такі функції:
procedure TForm1.Button1Click(Sender: TObject);
var x,y,s:real;
begin
x:=StrToFloat(edit1.text);
y:=StrToFloat(edit2.text);
s:=x+y;
edit3.Text:=FloatToStr(s);
end;
Підписатися на:
Дописи (Atom)