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

[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?

[Sir Rufo]

Weil eine TObjectList /TObjectList<T> per default das Lifetime-Management der Instanzen übernimmt

Delphi-Quellcode:

TerminList := TTerminList.Create(); // Verwaltet die Instanzen
TerminList := TTerminList.Create( true ); // Verwaltet die Instanzen
TerminList := TTerminList.Create( false ); // Verwaltet die Instanzen NICHT

[SProske]

TObjectList<T> hat eine Property OwnsObjects - steht diese auf true, kümmerst sich die Objektliste um die Freigabe der zugehörigen Objekte - steht sie auf false, musst du dich selbst drum kümmern. Verwendest du diese Objekte also an anderer Stelle wieder, sollte OwnsObjects auf false stehen, sonst werdne beim Clear alle Items ge"free"t.

[Sir Rufo]

Zitat von SProske:

TObjectList<T> hat eine Property OwnsObjects - steht diese auf true, kümmerst sich die Objektliste um die Freigabe der zugehörigen Objekte - steht sie auf false, musst du dich selbst drum kümmern. Verwendest du diese Objekte also an anderer Stelle wieder, sollte OwnsObjects auf false stehen, sonst werdne beim Clear alle Items ge"free"t.

Die werden eben nicht ge"free"t sondern ge"DisposeOf"t und das ist gerade unter ARC wichtig zu wissen.

Kleines Beispiel:

Delphi-Quellcode:

var
  a,b : TFoo;

a := TFoo.Create();
b := a;
a.Free();

Ohne ARC haben wir in b jetzt einen dangeling pointer (zeigt auf eine nicht mehr vorhandene Instanz).
Mit ARC haben wir in b eine Referenz auf eine lebende Instanz.

Delphi-Quellcode:

var
  a,b : TFoo;

a := TFoo.Create();
b := a;
a.DisposeOf();

Ohne ARC haben wir in b jetzt einen dangeling pointer (zeigt auf eine nicht mehr vorhandene Instanz).
Mit ARC haben wir in b eine Referenz auf eine (halbwegs) lebende Instanz, die allerdings den Status TObject.Disposed hat (und somit ein vergleichbarer Status wie ohne ARC).

[Harry Stahl]

Prima. Dann brauch ich nur mit "false" zu erzeugen (da ich ja bislang das alles selbst verwaltet habe) und die Sache läuft.

Unter Windows ging es mit den wenigen Änderungen schon, alles läuft wie bisher.

Mal sehen, wie das jetzt unter Android ist...

[Harry Stahl]

Heißt das jetzt, mit Deiner ergänzenden Erläuterung, dass ich das unter Android / ARC dann doch anders behandeln muss?

Ich benötige die Terminliste mit den verbundenen Objekten natürlich während der ganzen Laufzeit des Programms bzw. solange ich eine Termindatei geladen habe. Schließe ich die, gebe ich die nicht mehr benötigten Objekte wieder frei.

Puh... 40.000 Zeilen für Android zu kompilieren dauert lang...

[Harry Stahl]

Das mit der TTerminList sieht jetzt auch unter Android schon mal ganz gut aus.

Dafür Euch schon mal recht herzlichen Dank.

Unerwartetes Problem, das jetzt aber eine normale TListbox unter Android Probleme macht:

lb.items.AddObject (TimeStr, TObject (Index)); führt zu Problemen in:

Delphi-Quellcode:

procedure _InstAddRef(const Dest: TObject);
begin
  if Dest <> nil then Dest.__ObjAddRef;
end;

EAccessViolation.

Wieso das nun?