Delphi-Quellcode:
procedure TForm10.Button3Click(Sender: TObject);
begin
...
if (zahl1) and (zahl2) =0 then
repeat
...
until (zahl1) and (zahl2) <> 0;
...
Dein Problem wurde ja schon beantwortet, daher noch ein weitere Hinweis für dich:
Obiger Ausschnitt muss eigentlich wie folgt geschrieben sein:
Delphi-Quellcode:
procedure TForm10.Button3Click(Sender: TObject);
begin
...
if (zahl1 = 0) and (zahl2 = 0) then
repeat
...
until (zahl1 <> 0) and (zahl2 <> 0);
...
Das "and" hat in
deinem Source völlig andere Bedeutung.
Es bewirkt ein logisches and zwischen den Zahlen und vergleicht das Ergebnis mit 0 (bzw. <> 0).
Du meinst aber sicher, dass beide Zahlen 0, bzw. <> 0 sein sollen.