Thema: Delphi Mischen Funktion

Einzelnen Beitrag anzeigen

testzugang

Registriert seit: 14. Sep 2004
9 Beiträge
 
#1

Mischen Funktion

  Alt 16. Sep 2004, 16:15
HI,

ich bin gerade dabei ein memory zu schreiben und eigentlich läuft es auch perfekt, bis auf das kleine Problem. Ich lade meine Bilder so:

Delphi-Quellcode:
begin
   x:=0; y:=10;
   For i:=1 to IconZahl DO begin
     NextPos(x,y);
     IcoName:= 'Icon'+IntToStr(i);
     TKarte.Create(Self,x,y,IcoName);
   end;

For i:=IconZahl downto 1 DO begin
     NextPos(x,y);
     IcoName:= 'Icon'+IntToStr(i);
     TKarte.Create(Self,x,y,IcoName);
     Brueckseite.Click;
   end;
Also einmal meine 30 Icons rauf und einmal wieder runter. Ist ja ganz lustig, aber jetzt möchte ich eine "mischen" Funktion einbauen. Hat jmd. eine Hilfestellung evtl. mit Code für mich?

mfg
  Mit Zitat antworten Zitat