Запуск процедуры в другом unit^е

← →
FormJonh (2005-12-09 19:25) [0]

Помогите запустить процедуру в другом unit^е
При нажатии в форме 1 (Click;) делается форма 2 (CreateForm2;),
теперь при нажатии кнопки в форме 2 надо проверить\вычислить в
процедуре Proverka;

Но эта процедура должна быть в unit test1; где первая форма!
Ну никак ее не видно
- не известный identifier,ПРОПИСКА после uses приводит к
circular unit reference to test1 - мол запутался

мысли сброса через файл раз не видит процедуры
Proverka в unit test2; невозможно перетащить,так использует
кучу глобального в unit test1

куда копать ?????

unit test1; //форма 1

interface

uses
Windows, Messages,test2;
implementation
var
forma:dword;
ad:^dword;
.
.
procedure Click;
begin
CreateForm2;
end;

procedure Proverka;
begin
.......
ad...
......
end;
----------------------
unit test2; //форма 2

interface

uses
Windows, Messages;

procedure CreateForm2;
implementation
var
...

procedure CreateForm2;
begin

end;

procedure ClickForma;
begin
Proverka;
end;

← →
umbra © (2005-12-09 19:35) [1]

unit test2; //форма 2 interface uses Windows, Messages; procedure CreateForm2; implementation uses Test1; //сюда var ... procedure CreateForm2; begin end; procedure ClickForma; begin Proverka; end;

Запуск процедуры в другом unit^е Найти похожие ветки