Speicherbereinigung von Strings

[SirThornberry]

Mach das bloß nicht. Niemand garantiert dir das es in der nächsten Delphiversion noch genau so ist und dann kannst du dein Projekt weg werfen.
Alle Variablen die du definierst werden innerhalb eines gewissen Bereiches desfiniert (lokal, global, membervariable). Sobald diese Bereiche verlassen werden verlieren auch die Variablen ihre Gültigkeit.
Wenn du also bei verlassen der Bereiche die Werte hinter den Variablen nicht verlieren willst, musst du wie bereits gezeigt den Speicher explizit anfordern. Nur explizit angeforderter Speicher wird auch erst frei gegeben wenn er explizit freigegeben wird. Wenn Speicher automatisch reserviert wird durch declaration in einem Gültigkeitsbereich wird er auch automatisch frei gegeben.

Mach dir am besten eine schöne Klasse oder ein dynamisches Array wenn du mit Klassen nicht so fit bist. Irgendwo im Speicher rum schreiben und darauf verlassen das sich die Struktur nie ändert ist der falsche Ansatz.

[sirius]

Ergänzung: Du musst noch aufpassen, dass der Referenzzähler <> -1 ist, dann nicht verändern.

oder so

Delphi-Quellcode:

asm
  mov eax,your_ansi_string
  call system.@lstraddref
end;

@sir: Solange man das kann, ist es mit Abstand der bessere Weg. Abgesehen davon bin ich bei Strings mit Kombatibilitätsaussagen sowieso etwas vorsichtig. Mal sehen was noch alles läuft, wenn Delphi mal komplett auf Unicode umgestiegen ist.

[alzaimar]

Ergo: eine Wrapperklasse/Record basteln und den String kopieren (was einem 'Add Reference') gleichkommt. Alternativ den String direkt in die Hashmap schreiben

[Apollonius]

Zitat von alzaimar:

InterlockedIncrement(PInteger (Integer(@MyString)-8)^);

Ich dachte, ein Ansistring ist an sich schon ein Pointer (sagt auch die Hilfe). Warum dann noch der Adressoperator?

[alzaimar]

Ist für mich verständlicher. Außerdem ist Integer(MyString) <> Integer(@MyString)

[Apollonius]

War mir durchaus klar. Aber was ist richtig? Die Adresse eines Pointers? Ist das hier sinnvoll?

[alzaimar]

Aus der Systems.pas

Delphi-Quellcode:

Type
  PStrRec = ^StrRec;
  StrRec = packed record
    refCnt: Longint;
    length: Longint;
  end;

const
  skew = sizeof(StrRec);
  rOff = sizeof(StrRec); { refCnt offset }
  overHead = sizeof(StrRec) + 1;

procedure _LStrClr(var S);
var
  P: PStrRec;
begin
  if Pointer(S) <> nil then
  begin
    P := Pointer(Integer(S) - Sizeof(StrRec));
...

Also... Deine Version.. hö hö. Werd ich gleich mal berichtigen.

[3_of_8]

@alzaimar: Einen record zu nehmen, bringt eigentlich nichts, denn dann hast du das gleiche Problem mit dem record, weil der schließlich auch freigegeben wird, wenn du nicht seinen Referenzzähler erhöhst.

[alzaimar]

Meine Hashmap speichert immer Pointer, daher ein Record bzw. ein Zeiger darauf. Aber ich glaub ich erweitere meine Unit um eine Klasse, die String/String und Cardinal/String Tupel speichert.

[3_of_8]

Und wie verhinderst du, dass der record freigegeben wird? Das ist ja dann im Prinzip das gleiche Problem wie bei dem String.