Man sollte TStringList an den richtigen Stellen durch
TStrings ersetzen - das macht das Property kompatibel zu allen anderen Klassen, die von TStrings abgeleitet sind.
Delphi-Quellcode:
type
TTextfield = class(Twincontrol)
private
{ Private-Deklarationen }
fLines: TStrings;
protected
procedure SetLines(Value: TStrings);
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent); override;
published
{ Published-Deklarationen }
property Lines:TStrings read fLines write SetLines;
end;
...
constructor TTextfield.Create(AOwner: TComponent);
begin
inherited;
fLines := TStringList.Create; // die einzigste Stelle, an der TStringList geschrieben wird
end;
procedure TTextfield.SetLines(Value: TStrings);
begin
FLines.assign(Value);
end;