Boolesche Operatoren

[Dunkel]

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.