Moin,

ich möchte gerne ein paar zufällige Daten in ein Record einlesen.
Mein Record sieht ungefähr so aus:

markieren

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):

zusammenfalten · markieren

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

markieren

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,

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

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

Aber selbst wenn ich in GenerateCard Karte.Value := 12; reinschreibe klappt dies nicht, test.Value bleibt weiterhin leer.

Moin Balu,

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

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

Danke, Christian.