вызов процедуры из dpr

← →
VOIDER (2006-05-10 16:13) [0]

Project.dpr

uses ....utra;

procedure ReaderPA;
begin

end;

///////////////////////////////////////
utra.pas

procedure Click(send....)
begin

if ..... ReaderPA;

Как вызвать ReaderPA в unit utra.pas ?
пишет что неизвесен,хотя он находиться в project.dpr,
был бы pas написал бы в utra.pas uses project;
после implementation;
Что делать?

← →
TUser © (2006-05-10 16:14) [1]

Это сделать возможно, но проще и правильнее отправить эту процедуру в отдельный модуль.

← →
VOIDER (2006-05-10 19:24) [2]

как ,куда рыть ?
отправлять dpr в pas из-за одной процедуры
нельзя так как использует процедуры и типы прописанные в dpr

← →
Джо © (2006-05-10 19:42) [3]

> [2] VOIDER (10.05.06 19:24)
> как ,куда рыть ?

Проще в отдельный модуль, но хозяин — барин.
Экспортируешь (добавляешь в секцию expots). Затем, в нужном месте делаешь GetProcAddress и вызываешь :)

← →
Ega23 © (2006-05-10 19:42) [4]

> нельзя так как использует процедуры и типы прописанные в
> dpr

Вот и пропиши все эти типы и процедуры в отдельном юните. Потом в dpr - uses Отдельный Юнит и в любом другом, где захочешь использовать - uses Отдельный Юнит.

← →
Шпиён (2006-05-11 01:49) [5]

> Затем, в нужном месте делаешь GetProcAddress и вызываешь
> :)

Можно и без этого -)

В dpr:
program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}; {$R *.res} procedure ReaderPA; begin ................. end; exports ReaderPA; begin .....................
В Unit1:

implementation {$R *.dfm} procedure ReaderPA;external "project1.exe";

Только вот зачем такое извращение...бррр %)

> Можно и без этого -)

Можно и без этого, безусловно :)

вызов процедуры из dpr Найти похожие ветки