IntStringList und Objektfreigabe

[TiGü]

1. Waaaas?
2. Warum nimmst du kein richtiges TDictionary, welches seit Delphi 2009 mit dabei ist?
3. Warum willst du einen Integer freigeben? Der Cast auf TObject ist
nur ein Cast, es entsteht keine wirkliche Instanz auf dem Heap. Ergo muss da auch nichts freigeben werden.

[Shark99]

Danke.

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

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