Hallo,
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
i:=1;
repeat
with canvas.Rectangle(0,0,i,i);
until i<5;
end;
Du musst i doch verändern damit die Austrittsbedingung jemals erfüllt wird oder?
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
i:=1;
repeat
canvas.Rectangle(0,0,i,i);
inc(i); // oder i:=i+1 zum Verständnis. Ist aber das Gleiche.
until i>5; // hier war ein Fehler. Schleife wurde nur einmal durchlaufen.
end;
Nochwas: Auch wenn ich mich damit wieder einmal unbeliebt mache.
Das sind solche absolute Grundlagen, dass ich dir empfehlen würde ein Buch zu kaufen oder in der
Schule (wenns der Lehrer besser kann) besser aufzupassen.
(PS: Wir sind keine Hausaufgabenerledigungsmaschine für faule Schüler )
Grüsse
Rainer