Speicherbereinigung von Strings

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