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

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

← →
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

---

← →
Vemer ©   (2004-03-12 23:52) [5]

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

---

← →
Defunct ©   (2004-03-13 00:06) [6]

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.

---

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

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



Память: 0.46 MB
Время: 0.023 c