Как сделать?

[Valio]

Что значит как?

if edit1.text = pass then

[MyLastHit]

ну да можно, но я со строками операторы использовать не люблю, и отказался от их использования - именно в Delphi, я не помню в каких случаях, но они некорректно работают.

[Serge_Bliznykov]

именно в Delphi, я не помню в каких случаях, но они некорректно работают.

Вы уж извините меня за резкость и прямоту, но это чушь и клевета!!!
(Либо Вы их просто готовить не умеете! )

Пример, подтверждающий Ваши слова сможете привести?

я уж не говорю, о том, что Вы в примере использовали функции работы со строками Length() и Pos(), они, значит, корректно работают, а сравнение строк - не корректно???!

[Valio]

Я тоже с удовольствием посмотрел бы код где чтото "некорректно работает".

Ни разу не встречался с ошибками, которые не объяснялись бы логично. Всегда находил косяк в коде из за которого всё и работало криво. Компьютер работает так как ты напишешь, а не как ему вздумается.

[MyLastHit]

Хм, просто я когда только начал изучать Delphi, долго и упорно не мог понять почему ошибка у меня в сравнении строк.
Кто-то подсказал, что лучше и правильнее все реализовать через Pos, Copy,Length and others.
Ну я и решил, что Делфи - пуп земли и в нем нельзя сравнивать строки. Раза 3 тут люди тоже постили насчет сравнения строк, я им помогал реализовать ихний код через Pos и Length.
Сейчас впервые узнал, что все таки можно сравнивать строки. Так что извините
Все таки мне приелась работа со строками с помощью стандартных ф-ий...))

[Valio]

Единственные "косяк" со строками был замечен мной в консольном приложении. У новичка может сложиться впечатление, что Делфи работает некорректно. Допустим простая программа:

Var a : String;

Begin
Readln(a);
If a = 'Б' Then Writeln('Yes') Else Writeln('No');
Readln;
End.

Даже если пользователь введёт 'Б' Делфи выдаст No.
Если поставить бряк на строку if ... будет видно с чем там идёт сравнение.

Вобщем это единственное что я приметил.... это не ошибка, но не каждый новичёк сможет разобраться почему не срабатывает.

[cargo29]

var

  Form1: TForm1;

    value : string;

implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

repeat

value := InputBox('Внимание', 'Введите пароль', 'пароль');

until value='Ваш пароль';

showmessage('Пароль правильный');



end;

но как сделать что бы при нажатии на кнопку отвена сообщение закрывалось??

[Valio]

Вызвать Terminate.

А зачем ты в Рипит засунул?

[cargo29]

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

Вызвать Terminate.

А зачем ты в Рипит засунул?

я с ним никогда не работал как там что сделать7??

[cargo29]

можешь хотя бы примерный код накидать???