Passwortüberprüfung mit repeat / until?!

[HaCkAttaCk2001]

Hi.

Die Lösung ist interessant. Bewirkt das Application.ProcessMessages; ,dass sich das Programm nicht aufhängt?

Hab ich noch nie verwendet.

THX erstmal. Ich schau's mir gleich mal richtig an.

Edit:

Ich habs mal noch ein wenig gestaucht:

Delphi-Quellcode:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  repeat
    Application.ProcessMessages;
  until Edit1.Text = 'Hallo';
  Form2.Show;
end;

Sonst meckert jemand, dass das repeat im OnChange und nicht im OnKeyUp steht ^^ .


C ya.