проблема с константой

[KWN, lnc]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
const pass = Form1.Edit1.Text;
begin
if Edit1.Text = pass then ShowMessage('Yes');
else Application.Terminate;
end;

выделяет const pass = Form1.Edit1.Text;

а когда делаю так

выделяет const pass = '333'

он тянет!

[kommunist]

Наверное потому что Text ожет изменится а вы объявляете константу.

[Stilet]

Константы так не обьявляют.

[KWN, lnc]

у меня в этом кодинге процесс... ввода пароля...
как мне еще это реализовать? без const как вы говорите?

[spamer]

Вводите в Едит свой пароль, при выходе сохраняйте, например в файл или в реестр. При входе в программу выводите форму ввода пароля, и проверяйте, если пароль введен верно - входите в программу, если нет - выведите допустим сообщение - 'Пароль не верен'.

Вот быстрый пример:

var
  FilePass: TextFile;
  Password: Integer;

//На OnCreate формы бросаете
    AssignFile(FilePass, 'Pass.txt');
    Reset(FilePass);
    Read(FilePass,password);
    CloseFile(FilePass);

//На OnClose формы бросаете
    AssignFile(FilePass, 'Pass.txt');
    Rewrite(FilePass);
    Write(FilePass,Edit1.Text);
    CloseFile(FilePass);

//По нажатию кнопки
if StrToInt(Edit1.Text) = password then
  Label1.Caption:= 'Пароль верен'
  else
  Label1.Caption:= 'Пароль не верен';

Код только для примера как это можно грубо сделать. Вот от него можете и отталкиваться.

P.S. Я бы хранил пароль в реестре.

[DeKot]

Вот процедура ввода пароля (кусок кода из программы):

procedure TForm1.BPrgClick(Sender: TObject);// обработчик кнопки "запустить программу"
begin
   Label3.Caption:= 'Введите  ключ (пароль)';
   Edit2.SetFocus;
 if Form1.Edit2.Text = 'HW2QRD' then  {  HW2QRD -это и есть пароль.Можно заменить на любое значение}
 begin
   with Form1 do
   begin
    { здесь выполнение проги, переход к другим процедурам проги}
   end;
 end
 else
 begin
   with Form1 do
   begin
     Label3.Caption:= 'Неверный КЛЮЧ. Повторите ввод.';
     Edit2.Clear;
     Edit2.SetFocus;
   end;
 end;
end;

[KWN, lnc]

Большое человеческое спасибо

[Bayazet]

как вариант, объявлять ваш pass как глобальную переменную след.образом:

  var
    pass : String = 'пароль';

[KWN, lnc]

Bayazet Не пашет! надеюсь я правильно сделал?
посмотри...

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
pass : String = Form1.Edit1.Text;
begin
if Edit1.Text = pass then ShowMessage('Yes');
else Application.Terminate;
end;

[Stilet]

Не пашет!

А потому что такое только глобально можно обьявить.

pass : String = Form1.Edit1.Text;

Любиш собственные грабли целовать?