Запуск процедуры в другом unit^е
FormJonh © (2005-12-09 19:25:00)
Помогите запустить процедуру в другом 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:00) [1]
unit test2; //форма 2
interface
uses
Windows, Messages;
procedure CreateForm2;
implementation
uses Test1;//сюда
var
...
procedure CreateForm2;
begin
end;
procedure ClickForma;
begin
Proverka;
end;
Наверх 
ЧАТ |
Орешник |
|
