Ввод Паролей

[IVANSour]

Подскажите как прописать код так чтобы на одну кнопку можно було в вести пять разных паролей.Там для разных действий.
Как бы примернотак
if Edit2.Text='555'then
if Edit2.Text='777'then
if Edit2.Text='999'then
Или като через запятую


ВОТ ИСХОДНИК.

procedure TForm2.Button1Click(Sender: TObject);
begin
if Edit2.Text='555'then
begin
Label3.Caption:=Edit1.Text;
end
else
Label3.Caption:=Label2.Caption;
end;

[goblinyara]

case Edit2.text of
'Первый пассворд': //что-то делаешь;
'Второй': //опять что-то делаешь;
....
//Тут столько пассвордов, скок тебе надо
...
end;

[Dj_smart]

Вы меете в виду 5 разных паролей на один Edit?

if (Edit2.Text='555') or (Edit2.Text='777')  or ... or (Edit2.Text='999') then ...

[maladoy]

if Edit2.Text='555'then Label3.Caption:=Edit1.Text;
if Edit2.Text='777'then Label3.Caption:=Edit2.Text;
if Edit2.Text='999'then Label3.Caption:=Edit3.Text;

[Stilet]

case Edit2.text of

goblinyara, сам то пробовал этот способ? Или новые версии Делфи такое поддерживают??

Подскажите как прописать код так чтобы на одну кнопку можно було в вести пять разных паролей

А точнее?

[Kotofff]

case Edit2.text of

тут ошибка будет - для case нужен перечисляемый тип данных ...

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

А зачем 5 разных паролей ? Для 5-ти разных пользователей ? Или ...

[Шульц]

Сам решил проблему в посте, сравнивай через If что вводится.

[goblinyara]

хммм... забыл дописать StrToInt(Edit2.text), т.к. в условии только числовые пароли... но если буквенные, то да, нужно через if...then делать...

[RockForr]

Помогите сделать журнал событий для своей проги, таким образом чтобы
при нажатии на кнопку на одной форме это событие отображалось на другой форме в Memo или ListBox, например кнопка "включить свет", нажимаем на нее, а на другой форме в Memo записываются события-"12:35 Свет включен". Помогите исходником!!!