Динамическое вложение циклов

[java_91]

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

[java_91]

Алгоритм.doc вот примерный алгоритм нарисовал
Таблицы.doc

[java_91]

Как тут избежать зацикливание? Оно происходит при из-за вызова из Cell3 Cell2, при это счетчик цикла обнуляется, а мне надо что бы он продолжал с того места на котором остановился

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Cell1(n : integer);
    procedure Cell2(n : integer);
    procedure Cell3(n : integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  k: integer;
  index : integer;
implementation

{$R *.dfm}





Procedure TForm1.Cell1(n : integer);
var i : integer;
Begin
ShowMessage('Вид'+IntToStr(k));
If n=3 Then
  For i := 1 to 3 do
    Begin
    k:=k+1;
    StringGrid1.Cells[1,k]:=IntToStr(k);
    Cell2(n-1);
    End
else
  Cell2(n);
End;


Procedure TForm1.Cell2(n : integer);
var i : integer;
Begin
   ShowMessage('Группа'+IntToStr(k));
   ShowMessage('Группа n'+IntToStr(N));
   If n=2 Then
      for i:=1 to 3 do
        Begin
        ShowMessage('Индекс группы ='+IntToStr(i));
        k:=k+1;
        StringGrid1.Cells[2,k]:=IntToStr(k);
        Cell3(n-1);
        End
  else
   Cell3(n);
cell1(n+1);
End;



Procedure TForm1.Cell3(n : integer);
var i : integer;
Begin
  ShowMessage('Наименование'+IntToStr(k));
  ShowMessage('наименование n'+IntToStr(N));
   If n=1 Then
      For i := 1 to 3 do
        Begin
        k:=k+1;
        StringGrid1.Cells[3,k]:=IntToStr(k);
        End;
  cell2(n+1);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
k := 0;
Cell1(3);
end;

end.

[java_91]

Всем спасибо. Я нашел альтернативный метод решения данного алгоритма.
Если кому и интересно:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Cell1(n : integer);
    procedure Cell2(n : integer);
    procedure Cell3(n : integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  k: integer;
  index : integer;
implementation

{$R *.dfm}





Procedure TForm1.Cell1(n : integer);
var i : integer;
Begin

If n=3 Then
  For i := 1 to 3 do
    Begin
    ShowMessage('Индекс Вид ='+IntToStr(i));
    k:=k+1;
    StringGrid1.Cells[0,k]:=IntToStr(k);
    Cell2(n-1);
    End
else
  Cell2(n);
exit;
End;


Procedure TForm1.Cell2(n : integer);
var i : integer;
Begin
    i:=1;
   If n=2 Then
      for i:=1 to 3 do
        Begin
        ShowMessage('Индекс группы ='+IntToStr(i));
        k:=k+1;
        StringGrid1.Cells[1,k]:=IntToStr(k);
        Cell3(n-1);
        End
  else
   Cell3(n);
//cell1(n+1);
Exit;
End;



Procedure TForm1.Cell3(n : integer);
var i : integer;
Begin
   If n=1 Then
      For i := 1 to 3 do
        Begin
        ShowMessage('Индекс Наимен ='+IntToStr(i));
        k:=k+1;
        StringGrid1.Cells[2,k]:=IntToStr(k);
        End;
 //cell2(n+1);
 Exit;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
k := 0;
Cell1(2);
end;

end.

[veniside]

    procedure Cell1(n : integer);
    procedure Cell2(n : integer);
    procedure Cell3(n : integer);

Охрененная динамика. А если понадобится 4-тый цикл?
(Сорри, всю тему не читал, может это именно то, что надо, тогда пусть будет так.)

 Exit;
End;

хитрый трюк.

[java_91]

хитрый трюк.

ты прав =)
а на счет динамики - предложи что-нибудь, буду рад рассмотреть все предложенные варианты