Скачать: CL | DM;

Подскажите, мастера..   Найти похожие ветки 

← →
AlexSan ©   (2003-01-31 10:27) [0]

как из модуля (Unit1.pas) прочитать переменную, объявленную в проекте (Project1.dpr). Вроде бы сложностей быть не должно... Ну не могу сообразить :( Помогите...плиз

---

← →
Smithson ©   (2003-01-31 10:30) [1]

Никак.

---

← →
AlexSan ©   (2003-01-31 10:33) [2]

Smithson, неужели такие сложности.. Почему?

---

← →
Smithson ©   (2003-01-31 10:39) [3]

Потому что проект нельза подключить к модулю в команде uses.

---

← →
D   (2003-01-31 10:46) [4]

Уж объяви лучше переменную в модуле. :)

---

← →
AlexSan ©   (2003-01-31 10:47) [5]

Тогда посоветуйте, где обрабатывать параметры командной строки, чтобы на основе их анализа решить какую из форм запустить или не запускать совсем, а выполнить задачу в терминальном режиме?

---

← →
Романов Р.В. ©   (2003-01-31 10:49) [6]

А что для глобальных переменных отдельного модуля жалко?

---

← →
Sheriff   (2003-01-31 10:50) [7]

ParamStr(n)

---

← →
AlexSan ©   (2003-01-31 10:52) [8]

Р.В., то есть создать модуль, вызвать его из проекта и уже потом из него запускать формы?

---

← →
AlexSan ©   (2003-01-31 10:54) [9]

Sheriff, я не о том как получить параметры - это я умею :)

---

← →
Sheriff   (2003-01-31 10:58) [10]

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

---

← →
Романов Р.В. ©   (2003-01-31 11:03) [11]

Примерно так

program Project1;
uses
GlobalVar;

begin
if ParamStr(n) = "что-то" then
begin
Application.Initialize;
P1 := "строка";
if ParamStr(n) = "что-то другое" then
Application.CreateForm(TForm1, Form1) // Главная форма №1
else
Application.CreateForm(TForm2, Form2); // Главная форма №2
Application.Run;
end
else
begin
// Работаем без формы
end;
end.

..
unit GlobalVar
...
var
P1: string;

---

← →
AlexSan ©   (2003-01-31 11:06) [12]

Вполне исчерпывающий ответ! Я до такого сам бы не додумался, хотя понимаю, что это стандартное и простое решение. Спасибо!

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c