Hallo zusammen,
folgendes Problem:
Ich habe ein dynamisches Array der Form
Delphi-Quellcode:
type EKarte = record
name: string;
ort: integer;
status: integer;
end;
mit
P1EKarte, P2EKarte: Array of Ekarte;
und einem späteren
SetLength(P1EKarte,20).
Jetzt möchte ich das Array mischen und mir dazu eine Prozedur "mischen" schreiben, die von 0 bis High(P1EKarte) läuft und die Einträge von 0 bis zum Ende mit einem zufälligen Eintrag vertauscht. Dazu benötige ich aber ein Dummyrecord vom Typ EKarte als Zwischenspeicher.
Folgendes funktioniert schon mal nicht
Delphi-Quellcode:
procedure MixECards(PECards: Array of EKarte);
var
CDummy: EKarte;
ix: integer;
begin
For ix:=0 to High(PECards) do
begin
CDummy:=Copy(PECards, ix, 1);
end;
end;
Das Mischen selbst ist noch nicht implementiert, da ich hier bereits schon mit inkompatiblen Typen zu kämpfen habe.
Gruß Kay
[edit=sakura] [delphi]-Tags gesetzt. Mfg, sakura[/edit]