Повторное использование процедур в разных формах

← →
Dest © (2004-03-12 21:59) [0]

Вопрос конечно глупый, но всетаки... Как использовать процедуру "proc" из Form1 в Form2. Надо где-то что-то объявить, но что и где?

← →
Гаврила (2004-03-12 22:03) [1]

предположим
form1 расположен в unit1.pas
а form2 в unit2.pas
тогда
в unit2.pas пишем

uses unit1 {наряду с тем, что там уже указано}

и вызов
Form1.Proc;

при этом в классе TForm1 процедура proc (на самом деле это наывазется метод) должна быть объявлена в секции public

← →
Юрий Зотов © (2004-03-12 22:04) [2]

Можно просто вызвать, да и все. В uses добавьте нужный модуль.

← →
Vemer © (2004-03-12 22:25) [3]

А если так:
Var{модуля} .... Procedure Okrugl(N1:Real):Real; ... Procedure Okrugl(N1:Real):Real; Begin Result := Int(N1*100)/100; End

А потом из любого места, где модуль в Uses прописан:
... My_Real := Okrugl(My_Real); ...

← →
Defunct © (2004-03-12 23:08) [4]

Vemer © (12.03.04 22:25) [3]
А если так:
Var{модуля}

А Var тут причем?

Экспортируется все, что находится в секции Interface

У меня работает.. а без Var работает только в самом модуле.

Vemer © (12.03.04 23:52) [5]
?!

Проверьте:

// Модуль экспортирует процедуру. Unit Unit1; Interface Procedure DoNothing; Implementation Procedure DoNothing; Begin End; End. // Модуль, где будет использоваться процедура unit Unit3; interface implementation Uses Unit1; Begin DoNothing end.

Повторное использование процедур в разных формах Найти похожие ветки