hier eine function von mir
Delphi-Quellcode:
function Mischen(kartenliste: TStringlist):TStringlist;
var l:integer;
begin
randomize;
result:=tstringlist.Create;
while kartenliste.count>0 do
begin
l:=random(kartenliste.Count);
result.Add(kartenliste[l]);
kartenliste.delete(l);
end;
end;
der vorteil von dieser methode: jede karte wird nur einmal aufgerufen, was bei einem reinen zufallsgenerator auswurf nicht der fall ist
der parameter kartenliste is eine tstringlist, in der die karten in ungemischter reihenfolge drin sind
z.B.: 01Herz für Herz Ass
02Herz für Herz Zwei
...
ausgegeben wird eine tstringlist mit gemischter reihenfolge
nun einfach eine karte aufrufen
z.B. so:
image1.picture.bitmap.loadfromfile(gemischteStringlist[1]+'.bmp');