[th_bav]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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]

Код:

1	if Edit1.Text=<font color="Red">'</font>315<font color="Red">'</font> then

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

[th_bav]

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

Код:

1	if Edit1.Text<>'' then

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

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

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

[Black Raider]

Код:

1 2 3 4 5 6 7 8 9 10

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

[th_bav]

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

[code]

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

Код:

1 2	Edit1.Text<>'' Edit1.Text=''

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

[Black Raider]

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