Как ввести значение самому

@Jedi01 · Регистрация: 24.02.2014

Author24 — интернет-сервис помощи студентам

Есть код Delphi:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,p,S:real;
begin
a:=2;b:=2;c:=3;
if (abs(a-b)<c)and(c<(a+b))then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
edit1.text:=floattostr(s);
end else showmessage('не треугольник');
end;

Как ввести значения самому в форме?

@Ssnake707 · 07.02.2015, 19:51

Jedi01, у edit есть свойство text в нем вводишь значение которое будет отображаться в компоненте, если вы об этом

@droider · 07.02.2015, 19:57

Сообщение от Jedi01

Как ввести значения самому в форме?

поместить на форме три TEdit и написать

Delphi

//ввод
a :=StrToFloat(Edit1.Text);
b :=StrToFloat(Edit2.Text);
c :=StrToFloat(Edit3.Text);

Вместо 10-й строки

Delphi

1 2	//вывод ShowMessage('Площадь равна '+FormatFloat('0.####', s));

@Ssnake707 8 / 8 / 11 Регистрация: 02.02.2015 Сообщений: 140
	07.02.2015, 19:51	2
	Jedi01, у edit есть свойство text в нем вводишь значение которое будет отображаться в компоненте, если вы об этом 0

	07.02.2015, 19:57