Показать сообщение отдельно
  #30  
Старый 02.07.2019, 12:46
Maks19 Maks19 вне форума
Начинающий
 
Регистрация: 19.06.2019
Сообщения: 110
Версия Delphi: Delphi7
Репутация: 10
По умолчанию

Вот так у меня происходит ввод данных
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
 if Edit1.Text<>'' then Dmin:=strtofloat(Edit1.Text);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if Edit2.Text<>'' then lnas:=strtofloat(Edit2.Text);
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
if Edit3.Text<>'' then lm:=strtofloat(Edit3.Text);
end;

procedure TForm1.Edit4Change(Sender: TObject);
begin
if Edit4.Text<>'' then v0:=strtofloat(Edit4.Text);
end;

procedure TForm1.Edit5Change(Sender: TObject);
begin
if Edit5.Text<>'' then p1:=strtofloat(Edit5.Text);
end;

procedure TForm1.Edit6Change(Sender: TObject);
begin
 if Edit6.Text<>'' then Dv:=strtofloat(Edit6.Text);
end;


procedure TForm1.Edit8Change(Sender: TObject);
begin
if Edit8.Text<>'' then ro:=strtofloat(Edit8.Text);
end;

procedure TForm1.Edit9Change(Sender: TObject);
begin
if Edit9.Text<>'' then psi1:=strtofloat(Edit9.Text);
end;
procedure TForm1.Edit10Change(Sender: TObject);
begin
 if Edit10.Text<>'' then vz:=strtofloat(Edit10.Text);
end;

procedure TForm1.Edit11Change(Sender: TObject);
begin
if Edit11.Text<>'' then p2:=strtofloat(Edit11.Text);
end;
procedure TForm1.Edit12Change(Sender: TObject);
begin
 if Edit12.Text<>'' then psi2:=strtofloat(Edit12.Text);
end;
procedure TForm1.Edit13Change(Sender: TObject);
begin
 if Edit13.Text<>'' then bst:=strtofloat(Edit13.Text);
end;
procedure TForm1.Edit14Change(Sender: TObject);
begin
if Edit14.Text<>'' then hst:=strtofloat(Edit14.Text);
end;
procedure TForm1.Edit15Change(Sender: TObject);
begin
if Edit15.Text<>'' then bst1:=strtofloat(Edit15.Text);
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin

if CheckBox1.Checked then
begin
GroupBox1.Visible:=True;
hst:=strtofloat(Edit14.Text);
bst1:=strtofloat(Edit15.Text);
end
else
begin

GroupBox1.Visible:=False;
 hst:=0;
 bst1:=0;
end;
end;

По созданию формы записаны выражения
Код:
Dmin:=strtofloat(Edit1.Text);
lnas:=strtofloat(Edit2.Text);
lm:=strtofloat(Edit3.Text);
v0:=strtofloat(Edit4.Text);
vz:=strtofloat(Edit10.Text);
p1:=strtofloat(Edit5.Text);
p2:=strtofloat(Edit11.Text);
Dv:=strtofloat(Edit6.Text);

ro:=strtofloat(Edit8.Text);
psi1:=strtofloat(Edit9.Text);
psi2:=strtofloat(Edit12.Text);
bst:=strtofloat(Edit13.Text);
hst:=strtofloat(Edit14.Text);
bst1:=strtofloat(Edit15.Text);
GroupBox1.Visible:=False;

тут передача данных в цикле

Код:
For I := Low(Sources) To High(Sources) Do
   Sources[i] := Random(10);

А мне как передавать исходные данные?
Ответить с цитированием