Zitat von
teebee:
Im Konstruktor würde ich inherited zuerst aufrufen.
Die Set-Methode sollte ungefähr so aussehen:
Delphi-Quellcode:
procedure TMyLabel.setLines(newLines: TStrings);
begin
if Assigned(newLines) then
FLines.Assign(newLines)
else
FLines.Clear;
//... alles weitere
end;
Gruß, teebee
Wozu die Unterscheidung? Assign(Nil) löscht auch die Liste, also einfach nur
FLines.Assign(NewLines);
So, und noch zu einem anderen Ding was ich so sehe: Verschiebe das Anlegen der FLines nach dem inherited Create Aufruf.