Speicherfreigabe von Stringlisten in DLL

[sirius]

Zitat von himitsu:

Wie wird denn die Instanz von TBarcode erzeugt?

Das ist ein Automatisierungsobjekt . Dies wird abhängig von ThreadingModel von der COM-Factory erzeugt.
Edit: Deswegen gibt es auch mehrere Constructoren in den vorgelagerten Klassen und wiederum deswegen bringt es nichts den Constructor zu überschreiben, sondern wie in der Hilfe beschrieben die Methode initialize:

Delphi-Quellcode:

TBarcode = class(TAutoObject, IBarcode) 
  protected 

     ...
   private 

   public 
     procedure initialize; override;
     destructor Destroy; override
end;

procedure Tbarcode.Initialize; 
begin 
  inherited;
  strParse := TStringList.Create; 
  strRow   := TStringList.Create; 
end; 

destructor TBarcode.destroy(); 
begin 
  strParse.free; 
  strrow.Free; 
  inherited;
end;