|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.04.2009, 00:21 | #1 |
Proger Man
Форумчанин
Регистрация: 07.03.2009
Сообщений: 584
|
Всем привет.Как мне зделать чтобы в моей программе был серийный ActivationKay ключь тоесть в Edit1 водиш логин например хххl а в Edit2 код из 12 букв и цыфр например (s23haj87ghy4)
Да забыл если пользователь ведет правильно пароль откроются новые возможности например Memo1.Visible:=true;
ShowMessage('Добро пожаловать!');
Последний раз редактировалось KORN; 19.04.2009 в 06:58. Причина: пользуемся правкой |
19.04.2009, 00:31 | #2 | |
Форумчанин
Регистрация: 16.02.2009
Сообщений: 172
|
задаешь 2 переменные и потом сравниваешь их с введенными значениями в эдиты,и если совпадает - пускаешь,а если нет - посылаешь пользователя подальше)))
Цитата:
и так далее.принцип понятен?? Последний раз редактировалось KORN; 19.04.2009 в 06:59. Причина: пользуемся правкой |
|
19.04.2009, 00:35 | #3 |
Proger Man
Форумчанин
Регистрация: 07.03.2009
Сообщений: 584
|
А код можно я только учусь.
ShowMessage('Добро пожаловать!');
|
19.04.2009, 00:40 | #4 |
Proger Man
Форумчанин
Регистрация: 07.03.2009
Сообщений: 584
|
У меня ошибка Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
ShowMessage('Добро пожаловать!');
|
19.04.2009, 00:41 | #5 |
Форумчанин
Регистрация: 16.02.2009
Сообщений: 172
|
весь текст процедуры покажи
|
19.04.2009, 00:44 | #6 |
Proger Man
Форумчанин
Регистрация: 07.03.2009
Сообщений: 584
|
procedure TForm1.Button1Click(Sender: TObject);
begin if edit1.text:='login' and edit2.text:='pass' then Memo1.Visible:=false; end; Мне кто нибуть поможет
ShowMessage('Добро пожаловать!');
Последний раз редактировалось KORN; 19.04.2009 в 07:00. Причина: пользуемся правкой |
19.04.2009, 00:53 | #7 |
Software Developer
Старожил
Регистрация: 19.12.2008
Сообщений: 2,070
|
procedure TForm1.Button1Click(Sender: TObject);
begin if (edit1.text='login') and (edit2.text='pass') then Memo1.Visible:=false; end; Ты не поставил скобки в составном условии, а также заместь = применял :=.
Будь проще и люди к тебе потянутся
|
19.04.2009, 00:53 | #8 |
Форумчанин
Регистрация: 16.02.2009
Сообщений: 172
|
сори,писал на память,надо так..
Код:
|
19.04.2009, 00:55 | #9 |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
Во-первых там не ":=", а "="... во-вторых метод абсолютно бесполезный)) т.е. ненадежный... если использовать такие строки)
Uguu~
|
19.04.2009, 02:06 | #10 |
C++ & PHP & Asm
Форумчанин
Регистрация: 06.12.2008
Сообщений: 300
|
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Лицензия Антивирус Касперского | delphin100 | Безопасность, Шифрование | 6 | 25.03.2009 16:04 |
Запуск программы на выполнение из другой программы. | ViNcHeStEr | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 18.06.2008 14:33 |
программы | koyot | Фриланс | 1 | 14.03.2008 13:10 |
лицензия BDS 2006 | Романнн | Свободное общение | 0 | 09.12.2007 22:16 |
Помогите с делфи (лицензия найдена, но недопустима) | DeDoK | Софт | 2 | 24.11.2007 10:42 |