Delphi-Quellcode:
constructor TMyClass.Create;
Var
Fsl: THashedStringList;
Begin
Fsl.Create;
End;
Brachte leider auch nicth den Erfolg, denn das habe ich schon versucht.
Denn:
if Assigned(Fsl) then
läuft nicht durch.
Edit:
Zitat:
Delphi-Quellcode:
type
TMyClass = class
private
Fsl: THashedStringList; // Links
public
property sl: THashedStringList read Fsl write Fsl;
procedure addSl(content: string);
end;
procedure TmyClass.addSl(content: string);
Begin
sl.add(content);
end;
Hatte ich doch schon
