TStringlist als Property - Werte nicht in Laufzeit übernomme

[Hawkeye219]

Hallo Alexander,

die Stringlisten müssen als Property lesbar und schreibbar sein:

Delphi-Quellcode:

type
  TMyComponent = class (TComponent)
  private
    FList : TStrings;
    procedure SetList (aList: TStrings);
  public 
    constructor Create (aOwner: TComponent);
      override;
    destructor Destroy;
      override;
  published
    property List: TStrings
      read FList write SetList;
  end;

constructor TMyComponent.Create (aOwner: TComponent);
begin
  inherited;
  FList := TStringList.Create;
end;

destructor TMyComponent.Destroy;
begin
  FList.Free;
  inherited;
end;

procedure TMyComponent.SetList (aList: TStrings);
begin
  FList.Assign (aList);
end;

So ungefähr sollte das aussehen.

Gruß Hawkeye