Hallo
danke erst einmal
habe jetzt den Constructor und destructor wie nachstehend eingebaut
Delphi-Quellcode:
type
TBarcode = class(TAutoObject, IBarcode)
protected
function Get_SetFileName: OleVariant; safecall;
procedure Set_SetFileName(Value: OleVariant); safecall;
function Get_GetBcCode: OleVariant; safecall;
procedure Set_GetBcCode(Value: OleVariant); safecall;
private
public
constructor Create;
destructor Destroy; override;
end;
.
.
implementation
.
.
constructor Tbarcode.Create;
begin
//inherited Create();
strParse := TStringList.Create;
strRow := TStringList.Create;
end;
destructor TBarcode.destroy();
begin
strParse.free;
strrow.Free;
end;
der constructor wird nicht durchlaufen
aber der destructor wird durchlaufen.
Wenn ich inherited Create() hinzufüge ändert sich leider auch nichts.
Gruß Gregor