Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Простой вопрос!

newhite © (2005-12-21 01:20:00)
Это обработчик кнопки ОК в форме входа в систему, где едит1-логин, а едит2-пароль. Что нужно дописать чтобы при неправильном сочетании логин/пароль вылезало сообщение о том что программа будет закрыта?

procedure TVhodForm.Button1Click(Sender: TObject); begin if (Edit1.Text='1') and (edit2.Text='1') then GlavForm.N3.visible:=true; GlavForm.N6.visible:=true; VhodForm.Close; end;

Tonich (2005-12-21 16:38:00) [1]

> з. танька (21.12.05 01:56) [3]

да лихо ты ее, но насколько я помню сама недавно в начинающих задавала вопросы...

уже научилась хде точку с запятой ставить ?:))

з. танька (2005-12-21 15:51:00) [2]

> Германн © (21.12.05 02:19) [5]

а гм компутер поменялся пароль забыла!
вот так бывает, да...

Германн (2005-12-21 02:19:00) [3]
2 з. танька

А почему з. ?
Или злобнаятолько к мужикам? :-)

newhite (2005-12-21 02:02:00) [4]
спасибо :) просто голова вообче уже не работает.

з. танька (2005-12-21 01:56:00) [5]

> newhite © (21.12.05 01:47) [2]

блин, скопируй текст из мово примера.. копи-пастом. ты там поставила точку с запятой перед else. а перед ним её ставить нельзя. о чем тебе компилятор и сказал.

а вообще, учи английский! полезно бывает, да :)

newhite (2005-12-21 01:47:00) [6]
неа :( ругается на Else. выдает ошибку: [Error] Unit4.pas(55): ';' not allowed before 'ELSE'

з. танька (2005-12-21 01:25:00) [7]
procedure TVhodForm.Button1Click(Sender: TObject);
begin
if (Edit1.Text='1') and (edit2.Text='1') then
begin
GlavForm.N3.visible:=true;
GlavForm.N6.visible:=true;
VhodForm.Close;
end
else begin
ShowMessage('не знаем такого. гуляйте, гражданин');
Application.Terminate;
end;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »