| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как задействовать процедуру объявленную в другом модуле [D6, WinXP]

LORD ©   (2002-12-23 23:16:00) 

Привет всем.
подскажите как задействовать процедуру
объявленную в другом модуле ,а то уменя чегото не получается
компилятор выдает сообщение :процедура не видна.

ниже пример того как я это делал.

Это код основного модуля:

unit Unit1;
interface
uses
...
...
...
type

TForm1 = class(TForm)
...
...
...
procedure viewfolder(buffer:string);
end;

var
Form1: TForm1;
...
...
...
implementation
{$R *.dfm}
uses unit2;
procedure tform1.viewfolder(buffer:string);
var
...
begin
filerx(my_buffer,my_path); //ошибка здесь :данная процедура не видна

end;
...
...
...
end;
-----------------------------------------------------------
Это код дополнительного модуля:
unit unit2;
interface
uses
...
...
...
implementation
uses unit1;
procedure filerx(buffer,path:string);
begin
....
....
....
end;
end.
-------------------------------------------------------

---

TTCustomDelphiMaster   (2002-12-23 23:46:00) [1]

Это код дополнительного модуля:
unit unit2;
interface
uses
...
...
...
procedure filerx(buffer,path:string);

implementation
uses unit1;
procedure filerx(buffer,path:string);
begin
....
....
....
end;
end.

---

Наверх