Daten in Record einlesen schlägt fehl

[Balu der Bär]

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... :gruebel:

Besten Dank,

[Pfoto]

Hallo,

vielleicht stimmt etwas mit dem Random nicht,
lass dir doch mal den Wert ausgeben.

Dann kannst du zumindest diese Fehlerquelle ausschließen.

Gruß
Pfoto

[Balu der Bär]

Joah danke, hab ich schon geprüft, dass klappt problemlos.

Aber selbst wenn ich in GenerateCard

Delphi-Quellcode:

Karte.Value := 12;

reinschreibe klappt dies nicht, test.Value bleibt weiterhin leer. :?

[Christian Seehase]

Moin Balu,

logisch, Du übergibst ja auch einen Wertparameter.
Schreib mal var davor.

[Balu der Bär]

Ohje wie peinlich, dass hatte ich tatsächlich übersehen. :wall:

Danke, Christian. :-)