Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

Простой вопрос!   Найти похожие ветки 

 
newhite ©   (2005-12-21 01:20) [0]

Это обработчик кнопки ОК в форме входа в систему, где едит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;


 
з. танька   (2005-12-21 01:25) [1]

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;


 
newhite ©   (2005-12-21 01:47) [2]

неа :( ругается на Else. выдает ошибку: [Error] Unit4.pas(55): ";" not allowed before "ELSE"


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


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

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

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


 
newhite ©   (2005-12-21 02:02) [4]

спасибо :) просто голова вообче уже не работает.


 
Германн ©   (2005-12-21 02:19) [5]

2 з. танька

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


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


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

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


 
Tonich ©   (2005-12-21 16:38) [7]


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

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

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



Страницы: 1 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
2-1135102199
Aleks
2005-12-20 21:09
2006.01.08
как узнать имя папки пользователя в (моих документах)


9-1122572178
Kslaruovon
2005-07-28 21:36
2006.01.08
Анимация в Opengl


14-1134461801
Kutuzov47
2005-12-13 11:16
2006.01.08
Структурирование


4-1130880834
Freeon
2005-11-02 00:33
2006.01.08
Помогите разобраться с прохожднием всех каталогов


1-1133898010
Rem
2005-12-06 22:40
2006.01.08
EOleException и сообщение об исключительной ситуации