Пароль

[reihtmonbern]

Здравствуйте подскажите пожалуйста как продлить код
#
procedure TForm1.Button4Click(Sender: TObject);
var s, v:string;
begin
s:=Combobox1.Text;
v:=Edit1.Text;
if (s='1') and (v='f') then
Form2.Show;
if (s='2') and (v='d') then
Form3.Show;
end;
..... а дальше я хочу так сделать если юзер не ввел ничего или ввел что то то не правильно то должен выскакивать шоумесадже и посылать куда подальше и форма должна закрываться???
#


Причина закрытия темы подробно описана в самом первом пункте правил раздела...
Там даже примеры приведены, как следует называть свою тему, а как не следует.

Читаем правила раздела.
Там подробно написано, как следует оформлять код и что получается, если этого не делать.

[TorrentTor]

Как вариант добавить переменную логического типа и через нее, может кто поизящнее предложит.

var s, v:string;
b: Boolean;
 begin
 s:=Combobox1.Text;
 v:=Edit1.Text;
 if (s='1') and (v='f') then
begin
b:=true;
 Form2.Show;
 b:=false;
end;
 if (s='2') and (v='d') then
begin
 Form3.Show;
 b:=false;
end;
 If b then 
begin
ShowMessage('Посылаем куда подальше');
Close;
end;
 end;

[Arigato]

В FormCreate такой код разместите:

procedure TForm1.FormCreate(Sender: TObject);
var Password: string;
begin
  Password := InputBox ('Пароль', 'Введите пароль:', '');
  if Password <> 'qwerty' then
  begin
    if Password <> '' then MessageBox (0, 'Ошибка в пароле', 'Ошибка', MB_ICONERROR);
    ExitProcess (0);
  end; {if}
  MessageBox (0, 'Доступ разрешен!', 'Информация', MB_ICONINFORMATION);
end;