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;