Moin...
Diese Logic verstehe ich nicht...
Delphi-Quellcode:
a:=random(length(blatt)); // ermittlung der Karte aus dem Blatt (Integer zwischen 0 und 109)
inc(zz); // Anzahl der Karten
until ((a > 30) and (a < 90)); // Abheben min. 30 max. 90 Karten von 109 // ??? müßte das nicht statt a zz heißen
setlength(tb,a);// ??? müßte das nicht statt a zz heißen
Wie ist eigentlich dein Kenntnisstand bei Delphi?
Ich würde 2 Listen benutzen (TObjectList<TCard>). Die erste Liste mit dem gesamten Blatt füllen. Von der ersten Liste die gezogenen Karten in die andere Liste
verschieben...
