Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

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

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



---

← →
jack128 ©   (2006-02-12 20:14) [9]

GuAV ©   (12.02.06 20:13) [8]

:-))

---

← →
Marser ©   (2006-02-13 02:14) [10]

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

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

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

---

← →
GuAV ©   (2006-02-13 02:19) [11]

Marser ©   (13.02.06 2:14) [10]

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

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

---

← →
Marser ©   (2006-02-13 02:27) [12]

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

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

---

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

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.055 c