[th_bav]

Подскажите по условию, а то я ууже закипел)))
Ситуация такая есть форма(во вложении) нужно чтобы
1) Если пользователь ничего не ввел в поле Edit1 то в поле Edit1 писалось сообщение "Введите пароль"
2)Если пользователь ввел пароль, то
а)Если пароль равен 1234 то покажи что ли бо
b)Если пароль не верен, то пусть ничего нее происходит
Вот мой код, подскажите почему не робит???

Код:

procedure TAvtorizaciya.Button1Click(Sender: TObject);

begin
 if Edit1.Text<>'' then                    //  Проверка заполнения поля ввода
       if Edit1.Text=IntToStr(315) then
        DataBase.DBGrid1.ReadOnly:=False;  //
        DataBase.DBGrid2.ReadOnly:=False;  //  Пароль введен правильно
        DataBase.Button8.visible:=true;    //
        DataBase.Button12.visible:=true;   //
        close;                             //


 if Edit1.Text='' then                  //
   begin                                //  Поле ввода пароля пустое
       Edit1.PasswordChar:=#0;          //
       Edit1.Text:=('Введите пароль');  //
   end;
end;

Беда в том что прога показывает "что ли" бо в любом случае. Т.е. независимо от того ввел ли я что-нибудь или даже если ошибся...

[Black Raider]

Код:

if Edit1.Text='315' then

и будет счастье.

[th_bav]

Все равно не работает..., дело в том что он как бы игнорирует строку

Код:

 if Edit1.Text<>'' then  

на сколько я знаю она значит если поле Edit1 не пустое то...

[Страдалецъ]

Ну как-бы по логике кода begin end в if на юзать, а то так у вас только одна строчка кода после then выполняется

[Black Raider]

Код:

if Edit1.Text<>'' then                    //  Проверка заполнения поля ввода
//можно и вот так
// if length(edit1.text)>0 then
       if Edit1.Text='315' then begin
        DataBase.DBGrid1.ReadOnly:=False;  //
        DataBase.DBGrid2.ReadOnly:=False;  //  Пароль введен правильно
        DataBase.Button8.visible:=true;    //
        DataBase.Button12.visible:=true;   //
        close; 
end;

[th_bav]

Сообщение от Black Raider

[code]

спасибо, работает..., непонятно почему

Код:

Edit1.Text<>''
Edit1.Text=''

не сробатывало, но думаю потом дойдет

[Black Raider]

Срабатывало но по условию, т.к. не было begin end, отрабатывал только один оператор, остальные отрабатывали всегда.