TStringList als published property

[Khabarakh]

Zitat von Meflin:

OK, so geht das ganze. Also habe ich nun eine Komponente mit nichts als einer TStringList drin. Jetzt sollte es doch irgendwie möglich sein über default-zeugs dass man nicht TMeineKompo.StringList.Add schrieben muss sondern TMeineKompo.Add schreiben kann... nur wie (für die mini-frage mach ich jetzt kein neues Thema auf )

Default gibt es, soviel ich weiß, nur für Arrays. Du könntest also höchstens eine "halbe" Lösung machen:

Delphi-Quellcode:

TMyStringListComponent = class(TComponent)
  private
    FStringList: TStringList;
    function GetStrings(AIndex: Integer): string;
    procedure SetStrings(AIndex: Integer; const AValue: string);
  public
    property StringList: TStringList read FStringList;
    property Strings[AIndex: Integer]: string read GetStrings write SetStrings; default;
  end;

implementation

{$R *.dfm}

{ TMyStringListComponent }

function TMyStringListComponent.GetStrings(AIndex: Integer): string;
begin
  Result := StringList[AIndex];
end;

procedure TMyStringListComponent.SetStrings(AIndex: Integer;
  const AValue: string);
begin
  StringList[AIndex] := AValue;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Comp: TMyStringListComponent;
begin
  Comp := TMyStringListComponent.Create(Self);

  Comp.StringList.Add('blubb');
  Comp[0] := '*' + Comp[0] + '*' + Comp[0];
  // = Comp.StringList[0] := '*' + Comp.StringList[0] + '*' + Comp.StringList[0];
  // = Comp.StringList.Strings[0] := '*' + Comp.StringList.Strings[0] + '*' + Comp.StringList.Strings[0];

  Comp.Free;
end;

(Da fehlen natürlich noch Konstruktor und Destruktor)

Für alle Methoden von TStringList musst also immer noch explizit die Property angeben (es sei denn, du erstellst alle Methoden auch für deine Komponente ).