Можно ли заставить Делфи...

← →
DillerXX © (2006-02-12 19:56) [0]

... использовать переменную в юните, которую объявили в главном модуле? Ну точнее в самом program ?

← →
Desdechado © (2006-02-12 19:58) [1]

и заставлять не надо, это просто глобальная переменная

← →
DillerXX © (2006-02-12 20:03) [2]

И как её создать именно в dpr файле?

← →
Admeral © (2006-02-12 20:05) [3]

Пиши Var и объявляй переменную.

← →
jack128 © (2006-02-12 20:05) [4]

DillerXX © (12.02.06 19:56)
... использовать переменную в юните, которую объявили в главном модуле? Ну точнее в самом program ?
использовать переменную, объявленную в файле dpr, в модулях (unit"ах ) - нельзя. в самом файле проэкта - естественно можно.

program TestProg;
var
s: string;
begin
s := "test string";
WriteLn(s);
ReadLn;
end;

← →
DillerXX © (2006-02-12 20:09) [5]

Точно не получится? Вот блин.. значит придётся создать переменную в одном из юнитов, проинициализировать её в главной программе, а во всех остальных юнитах подключить юнит с переменной, так? Больше никак не получится?

← →
Admeral © (2006-02-12 20:11) [6]

> Больше никак не получится?

А чем тебя этот вариант не устроил?

← →
jack128 © (2006-02-12 20:11) [7]

DillerXX © (12.02.06 20:09) [5]
Вот блин.. значит придётся создать переменную в одном из юнитов, проинициализировать её в главной программе, а во всех остальных юнитах подключить юнит с переменной, так?

именно так.

← →
GuAV © (2006-02-12 20:13) [8]

Можно ;-)

program Project2; {$APPTYPE CONSOLE} uses SysUtils, Unit1 in "Unit1.pas"; var I: Integer; exports I; {$O-} begin I := 5; WriteI; end. unit Unit1; interface uses Windows; procedure WriteI; implementation procedure WriteI; begin WriteLn(PInteger(GetProcAddress(HInstance, "I"))^); ReadLn; end; end.

> [5] DillerXX © (12.02.06 20:09)
> Точно не получится? Вот блин.. значит придётся создать переменную
> в одном из юнитов, проинициализировать её в главной программе,
> а во всех остальных юнитах подключить юнит с переменной,
> так? Больше никак не получится?

Dpr - главный и pas"ы ему прислуживают, а не наоборот - слабо уяснить?
> [8] GuAV ©

Так и знал, что этот товарисч что-то загогулистое предложит ;-))
Можно ещё через сообщения, через файлы, через пайпы...

Marser © (13.02.06 2:14) [10]

> Так и знал, что этот товарисч что-то загогулистое
>предложит ;-))
> Можно ещё через сообщения, через файлы, через пайпы...

Не то.
Задача - не передать значение или указатель на переменную, а увидеть саму переменную, что и было сделано в [8] ;-)

> [11] GuAV © (13.02.06 02:19)
> Не то.

Какая разница? У всех вариантов нулевые шансы быть примененными с сабжевой целью :-)

Можно ли заставить Делфи... Найти похожие ветки