Mehrere Objekte in Delphi freigeben

Question

Unten habe ich einen Code eingefügt, der von Ray Konopka (Teil der Cogerage-Präsentation) geschrieben wurde. Ich plane, es zu benutzen, jedoch bin ich nicht sicher, wie man (in der Fliege) mehrfache Gegenstände säubert. Alle meine Versuche waren nicht gut und gerendert Speicherverlust. Irgendwelche Gedanken werden geschätzt. Danke,

program stringlistDictionary; 

{$APPTYPE CONSOLE} 

uses 
Classes, 
SysUtils; 

type 
    TPlayer = class 
    public 
    Name: string; 
    Position: string; 
    Hits: Integer; 
    AtBats: Integer; 
    constructor Create(Name, Position: string); 
end; 


    constructor TPlayer.Create(Name, Position: string); 
    begin 
     inherited Create; 
     Self.Name := Name; 
     Self.Position := Position; 
     Hits := 0; 
     AtBats := 0; 
    end; 


    var 
     Team: TStringList; 
     Player, NewPlayer: TPlayer; 
     I: Integer; 


    function FindPlayer(const Name: string): TPlayer; 
    var 
     Idx: Integer; 
    begin 
     Result := nil; 
     if Team.Find(Name, Idx) then 
     Result := TPlayer(Team.Objects[ Idx ]); 
    end; 


    begin {== Main ==} 

     Writeln('StringList Dictionary'); 
     Writeln('---------------------'); 
     Writeln; 

     Team := TStringList.Create; 
     try 
     NewPlayer := TPlayer.Create('Aramis Ramerez', 'Third Base'); 
     NewPlayer.Hits := 120; 
     NewPlayer.AtBats := 350; 

     Team.AddObject(NewPlayer.Name, NewPlayer); 

     NewPlayer := TPlayer.Create('Derrick Lee', 'First Base'); 
     NewPlayer.Hits := 143; 
     NewPlayer.AtBats := 329; 

     Team.AddObject(NewPlayer.Name, NewPlayer); 

     NewPlayer := TPlayer.Create('Ryan Theriot', 'Short Stop'); 
     NewPlayer.Hits := 87; 
     NewPlayer.AtBats := 203; 

     Team.AddObject(NewPlayer.Name, NewPlayer); 

     Player := FindPlayer('Derrick Lee'); 
     if Player <> nil then 
      Writeln('Player Found: ', Player.Name, ', ', Player.Position) 
     else 
      Writeln('Player not found.'); 
     Writeln; 

     Writeln('Active Roster'); 
     Writeln('-------------'); 

     for I := 0 to Team.Count - 1 do 
      Writeln(TPlayer(Team.Objects[ I ]).Name, #9, 
        TPlayer(Team.Objects[ I ]).Position); 

     Readln; 

     finally 
     //!! Need to free the players. 
     Team.Free; 
     end; 

    end. 

Answer 1

Mit Delphi 2009 hat der TStringList Konstruktor einen optionalen booleschen Parameter "OwnsObjects". Wenn Sie dies auf "true" setzen, werden die Objekte automatisch freigegeben.

Else können Sie folgendes tun:

for i := Team.Count-1 downto 0 do begin 
    Team.Objects.Free; 
end; 
Team.Free; 

Und übrigens sind die öffentlichen Bereichen abgeraten. Sie verwenden Eigenschaften, damit Sie steuern können, welcher Zugriff auf die Felder möglich ist. Und Sie können Setter-Funktionen hinzufügen, um die Eingabe zu validieren.

type 
    TPlayer = class 
    private 
    FName  : string; 
    FPosition : string; 
    FHits  : Integer; 
    FAtBats : Integer; 
    public 
    constructor Create(const AName, APosition: string); 

    property Name: string read FName; 
    property Position: string read FPosition; 
    property Hits: Integer read FHits write FHits; 
    property AtBats: Integer read FAtBats write FAtBats; 
end; 

Answer 2

nur eine Klärung über Gamecat Antwort: Ich weiß nicht, über delphi 2009 aber in der Regel die Eigenschaft Objects benötigen einen Index, und Sie brauchen nicht wirklich einen Reverse-Zyklus, so:

for i := 0 to Team.Count-1 do 
    Team.Objects[i].Free; 
Team.Free; 

oder:

while Team.Count > 0 do 
begin 
    Team.Objects[0].Free; 
    Team.Delete(0); 
end; 
Team.Free; 

Answer 3

Kinda offensichtlich, aber immer noch - man muss Code nicht schreiben ‚für ... Free‘ jedes Mal, wenn Sie TStringList Objekte löschen möchten. Sie können es in eine globale Funktion einfügen.

procedure FreeObjects(sl: TStringList); 
var 
    i: integer; 
begin 
    for i := 0 to sl.Count - 1 do 
    sl.Objects[i].Free; 
end; 

FreeObjects(Team); 

Oder Sie können es in einen TStringList Helfer einfügen.

TStringListHelper = class helper for TStringList 
public 
    procedure FreeObjects; 
end; 

procedure TStringListHelper.FreeObjects; 
var 
    i: integer; 
begin 
    for i := 0 to Count - 1 do 
    Objects[i].Free; 
end; 

Team.FreeObjects; 

Answer 4

Mit D7, kann ich Unterklasse nur TStingList