IntStringList und Objektfreigabe

[TurboMagic]

Beantwortung der Originalfrage: ja, die müssen freigegeben werden.
Wärst du auf neueren Delphi Versionen könntest du ReportMemoryLeaksOnShutdown := true; als erste Zeile der dpr setzen und würdest Memoryleaks dann beim Programmende angezeigt bekommen.

Und TDictionary aus Generics.Collections wäre auch sicher eine einfache und brauchbare Lösung für deine Problemstellung.

[TiGü]

Zitat von TurboMagic:

Beantwortung der Originalfrage: ja, die müssen freigegeben werden.
Wärst du auf neueren Delphi Versionen könntest du ReportMemoryLeaksOnShutdown := true; als erste Zeile der dpr setzen und würdest Memoryleaks dann beim Programmende angezeigt bekommen.

Und TDictionary aus Generics.Collections wäre auch sicher eine einfache und brauchbare Lösung für deine Problemstellung.

Es fällt mir in letzter Zeit auf, dass einige Mitforisten nur noch das Ursprungsposting lesen und gar nicht mehr die schon gegebenen Antworten (auch die des Threaderstellers), in denen schon alles gesagt wurde.

Was ist das? Faulheit? Dummheit? Boshaftigkeit? Oder ein "Ich-will-auch-irgendwas-schreiben"?

[dummzeuch]

Eigentlich hat Uwe die Frage ja schon beantwortet, aber da gerade eine falsche Antwort kam:

(Dies gilt für Delphi 7 und alle neueren Versionen für den 32 Bit Windows Compiler)

TObject(IntegerVariable) ist lediglich ein Typecast, es erzeugt kein Objekt und deshalb darf auch keines freigegeben werden. Ich hätte dort allerdings nicht nach TObject sondern nach Pointer gecastet.

Und da TStringList die Objekte nicht selbst verwaltet, sondern nur die Pointer speichert, besteht auch keine Gefahr, dass irgendwo in der RTL versucht wird die (Pseudo-)Objekte freizugeben. Also alles gut.

[TurboMagic]

Zitat von TiGü:

Zitat von TurboMagic:

Beantwortung der Originalfrage: ja, die müssen freigegeben werden.
Wärst du auf neueren Delphi Versionen könntest du ReportMemoryLeaksOnShutdown := true; als erste Zeile der dpr setzen und würdest Memoryleaks dann beim Programmende angezeigt bekommen.

Und TDictionary aus Generics.Collections wäre auch sicher eine einfache und brauchbare Lösung für deine Problemstellung.

Es fällt mir in letzter Zeit auf, dass einige Mitforisten nur noch das Ursprungsposting lesen und gar nicht mehr die schon gegebenen Antworten (auch die des Threaderstellers), in denen schon alles gesagt wurde.

Was ist das? Faulheit? Dummheit? Boshaftigkeit? Oder ein "Ich-will-auch-irgendwas-schreiben"?

Nein. Ich hab' einfach vor lauter Beiträge Lesen überlesen, dass der gute ja Integers in dem Platzhalter für Objekte speichern will.
Die darf man natürlich nicht freigeben! Sorry!

[himitsu]

Zitat von TurboMagic:

Integers in dem Platzhalter für Objekte speichern will.
Die darf man natürlich nicht freigeben!

Außer er speichert in dem TObject wirklich eine Objektinstanz,
wo dann das OwnsObjects=True liebendgern die Freigabe übernehmen würde.

Delphi-Quellcode:

type
  TMyDataObject = class
    FValue: Integer
    constructor Create(Value: Integer);
  end;
  
function TIntStringList.AddInteger(const s: string; i: integer): Integer;
begin
  ...
  //InsertItem(Result, S, TObject(i));
  InsertItem(Result, S, TMyDataObject.Create(i));
end;

[Dennis07]

Kurze Klarstellung bzgl TDictionary: Das hier ähnelt wohl eher einer TList<TPair<String, Integer>> als einem TDictionary<String, Integer>, denn es können ja Duplikate im Schlüssel vorkommen.
Die Frage, wieso man Abwärtskompatibilität bis runter nach Delphi 7 bewahren muss stell ich an dieser Stelle mal auch besser nicht, denn erstens ist Delphi 7 mittlerweile so gut wie gar nicht mehr im Gebrauch, und zweitens benötigt man ja kein Delphi 10 nur um dann mit Delphi 7 Features entwickeln zu dürfen. Aber sei's drum...

Es stellt sich mit dennoch die Frage, wieso hier die TStringList so enorm Zweckentfremdet wird, dafür Kann man sich ja eigentlich ziemlich schnell etwas vernünftiges bauen. Problem ist nämlich, genau wie beschrieben, dass es bei falscher Anwendung oder ARC-Compilern schnell am krachen tun ist.
(Was passiert wenn ich aus Versehen die OwnsObjects-Eigenschaft benutze?)

[himitsu]

Zitat von Dennis07:

Die Frage, wieso man Abwärtskompatibilität ...

Zitat:

Weil ich ein Delphi 7 Projekt erweitere und es da kein TDictionary gib

Gut, man könnte natürlich auch das Projekt mal auf was Aktuelleres hochziehn, aber Jedem das Seine.

[Shark99]

Das Projekt hat 80.000 Zeilen Code. Es von Delphi 7 auf 10.4 hochzuziehen würde sicher zu einem Umschreiben von 10% des Code resultieren. Es werden auch mindestens 20 Komponenten verwendet die mit Delphi XE1+ gar nicht funktionieren und ersetzt werden müssten. Dazu würde sich die Exe Größe durch den Umstieg sicher verdreifachen. Ein Fenster mit einem Button hat in Delphi 10 schon eine riesige Größe in Vergleich zu Delphi 7.

[dummzeuch]

Zitat von Dennis07:

(Was passiert wenn ich aus Versehen die OwnsObjects-Eigenschaft benutze?)

Die es, soweit ich mich erinnere, in Delphi 7 noch nicht gab.

[Dalai]

Zitat von dummzeuch:

Zitat von Dennis07:

(Was passiert wenn ich aus Versehen die OwnsObjects-Eigenschaft benutze?)

Die es, soweit ich mich erinnere, in Delphi 7 noch nicht gab.

TObjectList.OwnsObjects gibt es seit mindestens Delphi 5.

Grüße
Dalai