Eleganter Ersatz für TList und Objekte unter FMX-Platformen?

[SProske]

Spricht etwas gegen die Verwendung der generischen TObjectList (TObjectList<TTermin>)?

[Harry Stahl]

Hätte vielleicht noch erwähnen sollen, dass ich kaum Erfahrung mit Generics habe.

Würde ich dann einfach nur die unit

System.Generics.Collections,

hinzufügen und

TerminList: TList;

durch

TerminList: TObjectList<TTermin>;

ersetzen?

Und die TObjectList könnte ich verwenden wie die TList?

Wie würde ich z.B. die Liste erzeugen?

[Sir Rufo]

Nimm

Delphi-Quellcode:

type
  TTerminList = TObjectList<TTermin>;

TerminList := TTerminList.Create();

[Harry Stahl]

Danke, an dieser Stelle schon mal einfacher, als gedacht

[Harry Stahl]

Gut, jetzt habe ich noch Stellen, wo z.B. die TList als Parameter verwendet wird:

procedure SaveDatesFile (FName: String; DatesList: TList); Das könnte ich ja z.B. per Refactoring ändern.

Oder gäbe es noch was eleganteres?

z.B. TList irgendwie als Typ auf TTErminList "umbiegen", per Typendeklaration? Wäre das sinnvoll / möglich, mit Gefahren verbunden? Es ist die einzige TList, die ich in diesem Projekt verwende.

Wobei... gerade mal nachgesehen, habe nur 2 Vorkommen von TList als Parameter, da brauche ich wohl noch nicht mal das Refactoring, um das zu ändern...

[Sir Rufo]

Du hättest schon im alten Projekt definieren sollen

Delphi-Quellcode:

type
  TTerminList = TList;

um dann überall nur mit diesem TTerminList zu arbeiten

[Harry Stahl]

Ja, da hast Du wohl recht. Die ersten grundlegenden Definitionen (kann man wohl ein wenig sehen) stammen noch aus ca. 1995...

Ich kann nun zwar das wie sonst auch machen (zumindest gerade mal unter Windows getestet):

Delphi-Quellcode:

for L := 0 to TerminList.count - 1 do begin
  TTermin(TerminList[L]).Free;
end;

Weil Delphi das wohl selber regelt:

Delphi-Quellcode:

procedure TObject.Free;
begin
// under ARC, this method isn't actually called since the compiler translates
// the call to be a mere nil assignment to the instance variable, which then calls _InstClear
{$IFNDEF AUTOREFCOUNT}
  if Self <> nil then
    Destroy;
{$ENDIF}
end;

Ein einfaches

Terminlist.clear; lässt das Programm aber abstürzen.

Warum ist das so, bzw. wie setze ich die Liste wieder auf Null Elemente zurück?