Memory Leaks beheben

[w4rheart]

hatTextwerkzeug wird in

Delphi-Quellcode:

constructor Verbindung.init( pIPAdresse: Zeichenkette; pPortNr: GanzeZahl;
  pMitProtokollieren: Wahrheitswert );
begin
  hatTextwerkzeug := Textwerkzeug.init;
..
end;

initialisiert.

Delphi-Quellcode:

  ZeichenketteObjekt = class
  private
    zInhalt: Zeichenkette;
  public
    constructor init( pInhalt: Zeichenkette );
    procedure setzeInhalt( pInhalt: Zeichenkette );
    function Inhalt: Zeichenkette;
    destructor gibFrei;
  end;

constructor ZeichenketteObjekt.init( pInhalt: Zeichenkette );
begin

  zInhalt := pInhalt;
end;

procedure ZeichenketteObjekt.setzeInhalt( pInhalt: Zeichenkette );
begin
  zInhalt := pInhalt;
end;

function ZeichenketteObjekt.Inhalt: Zeichenkette;
begin
  result := zInhalt;
end;

destructor ZeichenketteObjekt.gibFrei;
begin
end;

Zeichenkette ist ein string