Цитата:
|
Сообщение от Guzerus
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') and (Edit2.Text<>'') then
ShowMessage ('Введите ник!') ;
if (Edit1.Text<>'') and (Edit2.Text='') then
ShowMessage ('Введите пароль!') ;
//проблемная конструкция
if (Edit1.Text='') and (Edit2.Text='') then //если оба пустые
ShowMessage ('Введите ник и пароль!')
else //если хотя бы одно заполнено
begin
Label1.Caption:= 'Вы вошли!' ;
Form2.Show
end;
end;
Если оба поля пустые-показывает сообщение и всё. Если же одно из них заполнено-показывает сообщение и переходит к форме. Как избежать?
|
Код:
if (Edit1.Text='') and (Edit2.Text<>'') then
ShowMessage ('Введите ник!')
else
if (Edit1.Text<>'') and (Edit2.Text='') then
ShowMessage ('Введите пароль!')
else
if (Edit1.Text='') and (Edit2.Text='') then
ShowMessage ('Введите ник и пароль!')
else
begin
Label1.Caption:= 'Вы вошли!' ;
Form2.Show
end;[/color]
end; |