Пароль с количеством попыток!

[viks1]

Здравствуйте!
Такая ситуация.
Дали задание придумать программу какую хочешь, но в ней должны присутствовать пароль для входа в нее, картинка при запуске, при всем этом использовать ручное создание форм и их разрушение....
Я загруз на пароле с количеством попыток.

procedure TForm1.Button1Click(Sender: TObject);
begin

password:=(StrToFloat(Edit1.Text));
 if password=4106649 then begin
 Application.CreateForm(Tform2, Form2);

 Form2.show;
 Form1.Hide;
 Form1.Free;
 end else
 if (password>4106649) and (password<4106649) then
 begin
 for i:=1 to 3 do
 begin

 label1.Caption:='попытки исчерпаны!!!';{сюда хотелось бы прикрепить количество попыток доступных на данный момент}
 end;

 end;

end;

Все дело в том, что оно не выдает хотя бы конечный Label1
Помогите если кто может пожалуйста)

[Hacker19_90]

и как это
число может быть больше 1 и меньше 1
что б ваше условие выполнилось?

if (password>4106649) and (password<4106649) then

что за ересь?
да и потом
вот зачем вам пароль в тип флоат грузить? Для чего?
Стринг уже не катит чтоль?

[BDA]

Вот пример.
http://programmersforum.ru/showpost....99&postcount=4

[viks1]

[QUOTE=Hacker19_90;1025224]

и как это
число может быть больше 1 и меньше 1
что б ваше условие выполнилось?

Вы правы...
но как мне сделать что бы оно не было равно именно этому числу?

password<>4106649

так?

да и потом
вот зачем вам пароль в тип флоат грузить? Для чего?
Стринг уже не катит чтоль?

не знаю... со стрингом не работало чего то...(

[viks1]

Сообщение от BDA

Вот пример.
http://programmersforum.ru/showpost....99&postcount=4

Спасибо, пример хороший... все что мне надо это как то разобратся что там написано, так как я буду защищать работу, надо знать каждую букву!

[Hacker19_90]

Вы правы...
но как мне сделать что бы оно не было равно именно этому числу?
Код:

password<>4106649

так?

верно именно так!

не знаю... со стрингом не работало чего то...(

да нууу как так

password:=Edit1.Text;
бла 
бла 
бла
if password<>'4106649' then пароль неверен там и так далее

[viks1]

Сообщение от Hacker19_90

да нууу как так

password:=Edit1.Text;
бла 
бла 
бла
if password<>'4106649' then пароль неверен там и так далее

вот такая вот ошибка

[Hacker19_90]

ну едрить колотить!
Может всё таки
password на тип стринг изменим?
не?
password: string;

[viks1]

Сообщение от Hacker19_90

ну едрить колотить!
Может всё таки
password на тип стринг изменим?
не?
password: string;

мне кажется if с string не дружит(

[Hacker19_90]

мне кажется if с string не дружит(

это с чего бы вдруг?