Warum muss ich den Namen meines Typs verwenden, um ihn zu bedienen? [Delphi/Lazarus]

Question

type  
    TSpieler = record 
    Name : string; 
    Konto,Position : integer; 
    Reihe : boolean; 
    Panel : TPanel; 
    end; 

var 
    PL1, PL2, PL3, PL4, PL5 : TSpieler; 

function getPlayer; 
begin 
    Result := PL1; 
end; 

procedure FeldKaufen; 
var 
    TestPlayer: TSpieler; 
begin 
    TestPlayer := getPlayer; {PL2,PL3,PL4,PL5} 
    inc(TestPlayer.Konto); {does not save} 
    {inc(PL1.Konto);}  {works just fine with every Player} 
end; 

Wie kann ich speichern PL1 Werte nach ihnen zu geben und bearbeiten sie von TestPlayer?

Das Problem ist, ich bekomme den Namen des Players durch diese getPlayer Funktion, und es ist gut, weil es den ganzen Code ein wenig sauberer macht.

Answer 1

Eine Lösung ist Zeiger auf die Spieler zu verwenden:

type 
    PSpieler = ^TSpieler; 
    TSpieler = record 
    Name: string; 
    Konto, Position: integer; 
    Reihe: boolean; 
    Panel: TPanel; 
    end; 

var PL1, PL2, PL3, PL4, PL5: TSpieler; 

function getPlayer: PSpieler; 
begin 
    Result := @PL1; 
end; 

procedure FeldKaufen; 
var TestPlayer: PSpieler; 
begin 
    TestPlayer := getPlayer; {PL2,PL3,PL4,PL5} 
    inc(TestPlayer.Konto); {does not save} 
    {inc(PL1.Konto);}  {works just fine with every Player} 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    FeldKaufen; 
end; 

Answer 2

Sie haben keinen überprüfbaren Code geschrieben.

Nichtsdestoweniger ist der Eintrag (im Gegensatz zu Referenz, Zeigertyp (Objekte)), und die Zuordnung eines Datensatzes zu einem anderen kopiert nur alle Felder. Das Ändern des zweiten Datensatzes (Kopie) hat keinen Einfluss auf den ersten (außer für Spezialfälle wie Zeigerfelder des Datensatzes).