Hallo,
du könntest ein Array nutzen, in dem du die Anzahl der gezogenen Zahlen ablegst:
Delphi-Quellcode:
var
Nums: array[1..49] of Integer;
Zu Beginn wird es mit 0 initialisiert:
Delphi-Quellcode:
for i := 1 to 49 do
Nums[i] := 0;
Nach jeder Ziehung zählst du den Wert hoch:
inc(Nums[GezogeneNummer]);
Dann hast du in dem Array die Zahlen (= Array-Index) und die zugehörige Anzahl der Vorkommen (= Array-Wert)
Grüße, Matze
Edit: Ich sehe gerade, du hast das in "Datenbanken" geschrieben und "Paradox" angegeben. Du kannst das statt eines Arrays natürlich auch in eine separate Tabelle der Datenbank eintragen mit zwei Spalten "Num" und "Count" o.ä.