Глобальная переменная в проектном файле.

[Nikolaeva]

Можно ли сделать глобальную переменную в проектном файле(.DPR)?
Если да, то в каком месте ее прописать? В unit что написать?
Как между формами переменными пользоваться умею, а вот здесь не получается. Мне надо анализировать пароль. Подскажите, пожалуйста.

[ArtInt]

Насколько я помню глобальными переменными называют переменные расположенные в var перед implementation. В чем проблема? Опишите поподробнее как Вы анализируте пароль.

[Пепел Феникса]

обьявить то можно, но формы ту переменную не увидят

[ArtInt]

Сообщение от Пепел Феникса

обьявить то можно, но формы ту переменную не увидят

Как это не увидят? Если прописать глобальную переменную str: string в Form1, в другой форме Form2 (например) в uses Unit1; А потом обращаться как Unit1.str То все должно сработать, она ведь не локальная... Или я не так понял вопрос?

[Nikolaeva]

В *.dpr нет implementation.
А, что unit не видит, я вижу.
Пароль ввожу при помощи InputBox и сразу в проекте анализирую. Но пользователю надо дать возможность самим менять пароль. А это должен сделать администратор. Пароль администратора пишу в программе. И это просто переменная. Так вот, если я вошла с этим паролем, у меня будет возможность уже писать другой(в форме). А у пользовательского пароля(он в файле txt) не будет такой возможности.

[ArtInt]

Насколько я понял алгоритм действий может быть такой. Сначала вводим глобальную переменную admin: boolean;, потом при создании формы например:

 procedure TForm1.FormCreate(Sender: TObject);
begin
  InputString:= InputBox('Input Box', 'Prompt', 'Default string');
  if InputString<>'admin' then admin:=true else admin:=false;
end;

После когда идет запрос на изменение пароля проверять admin=true, если да то разрешать редактировать файлы с паролями, если нет то выводить сообщение Не обладаете достаточными правами.
Значит слово 'admin' можно заменить на переменную, которая будет получать свое значение для сравнения из зашифрованного файла.

[Nikolaeva]

Спасибо большое, ArtInt за участие. Подали мысль. Сделала проще. В форме, где можно менять пароль, еще раз поставила InputBox. А дальше понятно.

[Пепел Феникса]

Сообщение от ArtInt

Как это не увидят? Если прописать глобальную переменную str: string в Form1, в другой форме Form2 (например) в uses Unit1; А потом обращаться как Unit1.str То все должно сработать, она ведь не локальная... Или я не так понял вопрос?

прочти внимательно вопрос.

топикстартер, ну если так нужно именно это то вот пример:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

var s:string;

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

но ни один юнит не увидет этой переменной

[Stilet]

Если быть до конца чесными то есть один способ решить задачу именно так как автор хочет:
Нужно обьявить переменку как экспортируемую, найти ее адрес в этом модуле и работать с ней как с родной:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
var s:integer;
{$R *.res}

 exports s;

begin
{$o-}
 s:=87;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

А вот форма:

procedure TForm1.FormCreate(Sender: TObject);
var i:^integer;
begin
i:=GetProcAddress(HInstance,'s');
caption:=inttostr(i^);
end;

Но это уж очень... Бзик короче

Опишите поподробнее как Вы анализируте пароль.

А либо пря м DPR либо в OnCreate главной формы, но тогда она отвечает за все присходящее, и переменки пароля не в проекте а в юните формы - это надежнее.