|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.05.2014, 01:07 | #1 |
Новичок
Джуниор
Регистрация: 19.04.2014
Сообщений: 1
|
логин и пароль
Все привет. У меня такая проблема, не как не могу сделать форму с логином и паролем подскажите в чем проблема
Код HTML:
procedure TForm8.sBitBtn2Click(Sender: TObject); var a,s:string; begin if (sEdit1.Text='kino') then l:=1 else l:=0; if (sEdit2.Text='city') then p:=1 else p:=0; if (p+l)>1 then alliance.Show form8.Hide else showmessage ('Неправильный логин или пароль!!!'); end; end. |
21.05.2014, 04:17 | #2 |
Пользователь
Регистрация: 10.06.2013
Сообщений: 25
|
Чисто навскидку:
Код HTML:
procedure TForm8.sBitBtn2Click(Sender: TObject); var l, p: byte; begin if (sEdit1.Text='kino') then l:=1 else l:=0; if (sEdit2.Text='city') then p:=1 else p:=0; if (p+l)>1 then begin form8.Hide; alliance.Show; end else showmessage ('Неправильный логин или пароль!!!'); end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пароль Логин | Mystery_Planet | C# (си шарп) | 2 | 08.05.2011 14:35 |
логин і пароль в builder 6 | Romarius | Помощь студентам | 8 | 13.12.2010 15:22 |
Логин и пароль | serega112000 | Помощь студентам | 3 | 03.02.2010 16:22 |
логин и пароль | All517 | Работа с сетью в Delphi | 3 | 15.01.2009 15:46 |