Frage zu Lottozahlengenerator

[worker]

Zahlen wird wohl ein Array[1..49] of Boolean sein. Die Indizes 1-49 stellen die Werte der deutschen Lottozahlen dar.
Als erstes werden alle Elemente des Arrays auf False gesetzt, was wohl einem 'nicht gezogen' entspricht.

Anschließend werden 6 Zahlen in einer for-Schleife 'gezogen', in dem mittels einer repeat..unitl-Schleife solange ein Zufallswert zwischen 1 und 49 ermittelt wird, bis ein Index gefunden wird, dessen Element im Array auf False steht, um Doppelziehungen zu vermeiden. Dieser wird dann auf True gesetzt, also als 'gezogen' gekennzeichnet.

Abschließend wird das komplette Array durchgerattert, und alle Indizes, deren Element True ist, in das Memo geschrieben.

Meiner Meinug nach nicht optimal, aber da solltest Du Dir selber Gedanken machen.

Zu Deiner Frage:

Delphi-Quellcode:

var
   iCounter: Integer;
[...]
iCounter := 1;
for i := 1 to 49 do begin
   memo1.Lines.add (Format('Zahl %d: %d', [iCounter, i])); 
   Inc(iCounter);
end;

Edit: CopyPaste-Fehler korrigiert