Скачать: CL | DM;

Запуск процедуры в другом 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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c