Und wie? Was ist denn an dem Code unklar?
Delphi-Quellcode:
var
Zaehler: integer;
begin
Zaehler := 0;
while <Bedingung> do
begin
ArbeiteHeftig;
Zaehler := Zaehler + 1;
end;
ShowMessage(IntToStr(Zaehler) + ' Schleifendurchäufe');
end;
Und zum allerletzten Mal: ich schaue mir Deine Codes nicht mehr an, bis Du anfängst, einigermaßen verständlich einzurücken
