Как организовать цикл ?

[Nikmichsch]

Не могу сообразить, можно ли в цикле, организованном в одном модуле, на каждом шаге открывать другую форму, выполнять в соответствующем ей модуле какие-то действия и возвращаться назад. Помогите понять, как это сделать.
С уваженинм. Nikmichsch.

[Stilet]

выполнять в соответствующем ей модуле какие-то действия и возвращаться назад.

Запросто. Эти действия оформи в метод другой формы (public метод), а в цикле вызывай его

for...
 formТаСамя.ТотМетод;

[Аватар]

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

Не могу сообразить, можно ли в цикле, организованном в одном модуле, на каждом шаге открывать другую форму, выполнять в соответствующем ей модуле какие-то действия и возвращаться назад.

Что значит открывать другую форму? Если другая форма до этого создана то действия предложенные Stilet, иначе ее нужно создать (Create), возможно передать управление (например Showmodal) или выпонить Public метод, и наверно уничтожить (Free). Не понятно для чего, но в цикле вполне возможно

[Nikmichsch]

Виталий, спасибо Вам за ответ. К сожалению, я не сумел понять, как "эти действия оформить в метод другой формы (public метод)". У меня есть форма с разными нужными для моих целей компонентами и соответствующий ей модуль. Если можно, напишите подробнее, что мне нужно сделать.
Заранее благодарен.
С уважением.
Nikmichsch.

[Sibedir]

Этап разработки
1.1 Порождаем формы от собственного класса с новым методом.
1.2 Пишем собственную реализацию метода для каждой формы

Этап выполнения
2.1 Сохраняем формы в массив
2.2 Назначаем метод при создании каждой формы
2.3 В цикле выполняем свой метод для каждой формы из массива

Обработка форм в цикле.zip

[Stilet]

Nikmichsch

Например у тебя есть вторая форма с неким методом

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   procedure DoSome;
    { Public declarations }
  end;

Тады ее, можно использовать так

var i:integer;
begin
 for i:=0 to 10 do Form2.DoSome;
end;

Учитывая что модуль второй формы подключен в uses первой.
Поскольку я не знаю что тебе нужно я напишу просто описание метода:

procedure TForm2.DoSome;
begin
 Ну и че тут делать то?
end;

Так понятнее?

[Nikmichsch]

Виталий! Огромное спасибо Вам за ответ. Буду осваивать.
С уважением.
Nikmichsch.

[Nikmichsch]

Виталий, спасибо Вам за подробный ответ. Но я, к моему стыду, не справился. Когда я делал так, как Вы написали, программа мне выдавала ошибку. Я Вам посылаю изначальный модуль второй формы, которую мне хочется открывать в каждом цикле.
Этот модуль прописан в разделе другой (главной) формы, где размещен цикл :

implementation
uses MVvodA;

Если не трудно, Скажите, в чём я не прав.

Заранее благодарен.
С уважением.
Nikmichsch.

unit MVvodA;

interface

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

type
  TFormAVvodD = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  FormAVvodD: TFormAVvodD;

implementation
         uses ModOprZav;
{$R *.dfm}


procedure TFormAVvodD.Button1Click(Sender: TObject);
begin
               A2[inn,jmm] := StrToFloat(Edit3.Text) ;

                 FormAVvodD.Close;
end;

end.

[Sibedir]

Выложите еще и цикл. Без него это гадания на кофейной гуще. Ибо совершенно не понятно, что вы в итоге делаете-то.

[Nikmichsch]

Это модуль, в котором я хотел организовать цикл:

unit ModOprZav;

interface

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

type
  TGlavnForm = class(TForm)
    GlavnMenu: TMainMenu;
    Menu1:  TMenuItem;
    Menu11: TMenuItem;
    Menu2:  TMenuItem;
    Menu21: TMenuItem;
    Menu22: TMenuItem;
    Menu23: TMenuItem;
    Menu12: TMenuItem;
    procedure Menu11Click(Sender: TObject);
    procedure Menu12Click(Sender: TObject);
    procedure Menu21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
    GlavnForm : TGlavnForm;
  N,M,k,N1,M1,k1,inn,jmm : integer;
          A2:array of array of real;
              Na,Ma : integer;
implementation

uses MVvodDOprZav, MProvDOprZav, MVvodA;

{$R *.dfm}

procedure TGlavnForm.Menu11Click(Sender: TObject);
begin
    N := 0;
    M := 0;            // Обнуление ячеек.
    k := 0;

   FormVvodDRazm.Show;
end;

procedure TGlavnForm.Menu12Click(Sender: TObject);
begin
   FormProvDRazm.Show;
end;

procedure TGlavnForm.Menu21Click(Sender: TObject);
begin
   Na := N1;
   Ma := M1;
       SetLength(A2,Na,Ma);

      for jmm := 1 to Ma do
             for inn := 1 to Na do

            begin
      {   FormAVvodD.Edit1.Text:= IntToStr(inn);
         FormAVvodD.Edit2.Text:= IntToStr(jmm);  }

             FormAVvodD.Show;

            end;

end;

end.

С уважением.
Nikmichsch