Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите, мастера.. [D5]

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

AlexSan (2003-01-31 11:06:00) [1]
Вполне исчерпывающий ответ! Я до такого сам бы не додумался, хотя понимаю, что это стандартное и простое решение. Спасибо!

Романов Р.В. (2003-01-31 11:03:00) [2]
Примерно так

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;

Sheriff (2003-01-31 10:58:00) [3]
тогда в чем проблема?
где лучше сделать?
где угодно... и когда угодно, исходя из контекста задачи.

AlexSan (2003-01-31 10:54:00) [4]
Sheriff, я не о том как получить параметры - это я умею :)

AlexSan (2003-01-31 10:52:00) [5]
Р.В., то есть создать модуль, вызвать его из проекта и уже потом из него запускать формы?

Sheriff (2003-01-31 10:50:00) [6]
ParamStr(n)

Романов Р.В. (2003-01-31 10:49:00) [7]
А что для глобальных переменных отдельного модуля жалко?

AlexSan (2003-01-31 10:47:00) [8]
Тогда посоветуйте, где обрабатывать параметры командной строки, чтобы на основе их анализа решить какую из форм запустить или не запускать совсем, а выполнить задачу в терминальном режиме?

D (2003-01-31 10:46:00) [9]
Уж объяви лучше переменную в модуле. :)

Smithson (2003-01-31 10:39:00) [10]
Потому что проект нельза подключить к модулю в команде uses.

AlexSan (2003-01-31 10:33:00) [11]
Smithson, неужели такие сложности.. Почему?

Smithson (2003-01-31 10:30:00) [12]
Никак.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »