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