Вот так у меня происходит ввод данных
Код:
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);
А мне как передавать исходные данные?