Форум: "Основная";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];
Внизкак задействовать процедуру объявленную в другом модуле Найти похожие ветки
← →
LORD (2002-12-23 23:16) [0]Привет всем.
подскажите как задействовать процедуру
объявленную в другом модуле ,а то уменя чегото не получается
компилятор выдает сообщение :процедура не видна.
ниже пример того как я это делал.
Это код основного модуля:
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) [1]Это код дополнительного модуля:
unit unit2;
interface
uses
...
...
...
procedure filerx(buffer,path:string);
implementation
uses unit1;
procedure filerx(buffer,path:string);
begin
....
....
....
end;
end.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c