Moin,
ich möchte gerne ein paar zufällige Daten in ein Record einlesen.
Mein Record sieht ungefähr so aus:
Delphi-Quellcode:
type
TBJCard = record
CardFace: TFaces;
CardColor: TSuits;
Value: Integer;
IsAce: Boolean;
end;
Diese soll jetzt befüllt werden, dazu habe ich folgende Prozedur geschrieben (Auszug):
Delphi-Quellcode:
procedure TFrmMain.GenerateCard(Karte: TBJCard);
var
i, g: Integer;
begin
i := random(13);
g := random(4);
// hier fehlt manches
case g of
0: Karte.CardColor := Clubs;
1: Karte.CardColor := Diamonds;
2: Karte.CardColor := Hearts;
3: Karte.CardColor := Spades;
end;
Der Aufruf erfolgt dann einfach per
Delphi-Quellcode:
var
test: TBJCard;
...
GenerateCard(test);
Lässt sich auch kompilieren ohne Fehler aber trotzdem bleibt test.CardColor leer. Es werden einfach keine Daten in den übergebenen Record eingetragen, kann mir das jemand erklären? Also entweder wars heute zur Ente doch ein Glas Rotwein zu viel oder ich bin bisschen blind so kurz vor Weihnachten...
Besten Dank,