IF..THEN-Abfrage, keine(!!!) Schleife:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text = '0') and (Edit1.Text= '0') then
memo1.Visible:=false;
end;
WHILE..DO ist für Deine Zwecke nicht geeignet! Trotzdem mal ein Beispiel:
Delphi-Quellcode:
var
i: byte;
begin
i:= 0;
while i< 10 do
Inc(i);
end;
Ganz wichtig ist, dass sich die Bedingungen der kopfgesteuerten Schleife in der Schleife selber (oder in einer globalen Variable von außerhalb) ändern muss, ansonsten läuft diese Schleife bis zum Stack-Überlauf, was bei Deiner Version der Fall ist.