Frage zur property Lines

[sx2008]

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;