переменные form2 на form1

[motaro]

у меня в коде на Form2 читаются много переменных из ini файла, но при запуске программы эти переменные нужны на Form1. а при запуске проги сначала выполняется код Form1 а потом уже код Form2 и не получается работать с переменными из form2 на form1. Что можно сделать?

[W0LF]

Если я тебя правильно понял, добавь переменные на Form2 в public и используй на Form1

[motaro]

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

Если я тебя правильно понял, добавь переменные на Form2 в public и используй на Form1

а как сделать, куда это прописать?
у меня на form2 переменные, которые нужны на form1 (при запуске программы)

  type new= record
    x:integer;
    y:integer;
    z:integer;
    end;
var mass:array [1..10] of new;

[3D Hunter]

у меня в коде на Form2 читаются много переменных из ini файла, но при запуске программы эти переменные нужны на Form1

Сделай, чтобы эти переменные считывались при создании Form1, раз они ей нужны. Какие проблемы?

[motaro]

Сообщение от 3D Hunter

Сделай, чтобы эти переменные считывались при создании Form1, раз они ей нужны. Какие проблемы?

а как это сделать? просто так при запуске программы на form1 их не удается использовать, потому-что еще не дошло до считывания из из form2

[Манжосов Денис :)]

Когда дойдёт считывание на второй форме, сделай так, чтобы на первой форме программа прочитала переменные. Что сложного? А глобальные переменные объявляются в разделе var, до implementation.

[motaro]

Сообщение от Манжосов Денис :)

Когда дойдёт считывание на второй форме, сделай так, чтобы на первой форме программа прочитала переменные. Что сложного? А глобальные переменные объявляются в разделе var, до implementation.

все переменные на form2 глобальные, просто мне нужны эти переменные (из form2) сразу при запуске программы (на form1), а сначала выполняется весь код form1 а потом уже доходит до form2 и поэтому мне не удается использовать переменные из form2 на form1(сразу при запуске программы)

[motaro]

вот пример с двумя формами, в Form2 переменной присваивется текст, в Form1 при запуске программы он должен выводится, но не выводиться

form1

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage(s); //ничего не выводиться
end;

end.

form2

unit Unit2;

interface

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

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

var
  Form2: TForm2;
  s:string;
implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
s:='ТЕКСТ КОТОРЫЙ НЕ БУДЕТ РАБОТАТЬ НА FORM1 ПРИ ЗАПУСКЕ ПРОГРАММЫ';
end;

end.

[spamer]

Как вариант :

procedure TForm1.FormActivate(Sender: TObject);
begin
showmessage(s);
end;

[motaro]

странно у меня пишет: 'Unit 1' does not contain a member nemed 'FormActivate' at line 31 (31:18)

возможно из-за delphi 2009