Ja das klappt, aber wieso klappt das nicht bei meinem richtigen Projekt? Ich habs genau so!
Ich versuch jetzt mal die nötigen Infos zu posten:
Delphi-Quellcode:
type
TKarte = record
KartenName : string[12]; //Sieben, Acht, Neun, Zehn, Bube, Dame, König, Ass
KartenWert : Byte; //zur Bestimmung des Indexes beim Array
KartenZiffer : Byte; //Zur Namens - Bildauflösung B=11, D=12 K=13 Ass=1
KartenTyp : Byte; //Karo (1), Herz(2), Pik(3), Kreuz(4)
end;
TKartenArray = array[0..6] of TKarte;
var KartenGezogen : TKartenArray;
procedure cardToArray(karte:TKarte; TKA:TKartenArray; laenge:integer);
begin
TKA[laenge]:=karte;
end;
procedure CardToPlayer();
var i,zahl : byte;
begin
for i:=low(Player) to players-1 do begin
cardToArray(Player[i].HandKarte[1],KartenGezogen,0);
cardToArray(Player[i].HandKarte[2],KartenGezogen,1);
end;
Form1.Memo1.Text:=KartenGezogen[0].KartenName;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
CardToPlayer();
end;
So, mein Problem ist, er übergibt in der procedure cardToArray "korrekt" die Karte an TKA, allerdings ist sie danach trotzdem NICHT in dem Array KartenGezogen ... was man anhand der memo1 nachvollziehn kann.. Das ist exakt dasselbe Schema wie bei dem Array, wo wir das mit der 2 gefüllt haben, nur etwas komplexer.. ich versteh's nicht warum der das nicht in das Array schreibt.