Практична робота. «Проєкти з полем, з уведенням даних і виведенням результатів»

чисел

даних

текстових повідомлень

Button1

CheckBox

Edit1

Label1

procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Top:=250;

form1.Left:=250;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Top:=250;

Edit1.Left:=250;

procedure TForm1.Button1MouseMove(Sender: TObject);

begin

Edit1.Top:=250;

Edit1.Left:=250;

procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Top:=form1.Top+250;

form1.Left:=form1.Left+250;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Color:=clRed;

Edit1.text:='Ми використовуємо властивості поля!';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.font.Color:=clRed;

Edit1.text:='Ми використовуємо властивості поля!';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.font.Color:=clgreen;

Edit1.text:='Ми використовуємо властивості поля';

end;

Edit1, Label1, Button1

Label1, Label2, Button1

Edit1,Button1, Button2

FloatToStr (Edit1.Text);

StrToFloat (Edit1.Text);

StrToFloat (Edit1);

Виводить у поле число 256.

Виводить у напис букву m.

Виводить у напис число 256.

procedure TForm1.Button2Click(Sender: TObject);

var a,z:real;

begin

a:=FloatToStr(Edit2.text);

z:=a(4+aa);

end;

procedure TForm1.Button2Click(Sender: TObject);

var a, z:real;

begin

a:=StrToFloat(Edit2.text);

z:=a(4+aa);

end;

procedure TForm1.Button1Click(Sender: TObject);

var a,z:real;

begin

a:=FloatToStr(Edit2.text);

z:=a(4+aa);

end;

label1.Caption:=FloatToStr(z);

label1.Caption:=StrToFloat(z);

Edit1.Caption:=StrToFloat(z);

end

begin

procedure

var

Real

Caption

Label

Integer

Float

longint