Boolesche Operatoren

[klaus33]

Es tut mir leid dass es so lang gedauert hat

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
while (Edit1.Text = '0') and (Edit1.Text= '0') do
memo1.Visible:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='0';
Edit2.Text:='0';
end;