[JASterus]

грид на дочернюю форму

[Madmech]

Что есть грид? *смущенно*

[XCodeR]

Madmech
TDrawGrid....

а вообще просто динамически создаемы необходимое кол-во TEdit'ов...
TEdit *te=new TEdit;
te->Top=...;
te->Left=....;

(C++)...

[Madmech]

Хорошо, это я понял, а как тогда сделать, чтобы во 2-м модуле, где прописаны свойства и методы дочерней формы, использовались значения переменных из 1-го (основного) модуля? Дело в том, что значения переменных k и n, отвечающих за количество столбцов и строк в дочерней форме, задаются в реализации одного из методов 1-го модуля, то есть после implementation, и, значит, не видны для 2-го модуля.

[detrin]

Можно после implementation второго модуля написать строчку
uses Unit1;
После этого будет доступен первый модуль. Нужные переменные придется делать глобальными, чтоб можно было их считать.

[Madmech]

Сделал уже давно! Все равно не помогает! Второй модуль видит эти переменные, при компиляции ничего не гавкает, но не воспринимает их значения, которые я задал в реализации методов в первом модуле.

В первом модуле:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   k := StrToInt(Trim(Edit1.Text));
   n := StrToInt(Trim(Edit2.Text));
   Form2.Show;
end;

Во втором модуле:

Код:

procedure TForm2.FormCreate(Sender: TObject);
var i, j: integer;
begin
  with StringGrid1 do
  begin
    ColCount := n;
    RowCount := 2*k+1+4;
    for i := 1 to n do
      Cells[i,0] := 'Шпангоут №'+IntToStr(i);
    for j:= 1 to k do
      Cells[0,j] := 'f(x'+IntToStr(j)+')';
    for j:= k+1+4 to 2*k+4 do
      Cells[0,j] := 'fкорр(x'+IntToStr(j-k-4)+')';
    Cells[0,k+1] := 'fср';
    Cells[0,k+2] := 'a1';
    Cells[0,k+3] := 'b1';
    Cells[0,k+4] := 'c2';
  end;
end;

Все равно при компиляции k и n воспринимаются равными нулю, как будто я не задавал их значения.

[detrin]

Во втором модуле не нужно объявлять глобальные переменные k и n. А обращатся к ним нужно вот так:
Form1.k
Form1.n

Как вариант, можно обращаться непосредственно к Edit`у первой формы:
k := StrToInt(Trim(Form1.Edit1.Text));
n := StrToInt(Trim(Form1.Edit2.Text));

[Madmech]

Спасибо! Проблема решена. Я сделал это так, если кому интересно:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  k := StrToInt(Trim(Edit1.Text));
  n := StrToInt(Trim(Edit2.Text));
  Application.CreateForm(TForm2, Form2);
  Form2.Show;  
end;

Нажимая на Button1 в 1-й форме, я перехожу во 2-ю, дочернюю форму, где строится таблица k x n.