Eigene Komponente mit TStrings als Eigenschaft

[little-x]

Hallo,

jetzt muss ich doch nochmal hier um Rat fragen. Ich habe eine eigene Komponente erstellt und installiert. Wenn ich die Komponente in eine Form einbinde, sehe ich im Entwurfsmodus alle published propertys der Komponente und kann sie bearbeiten. Jetzt hat eine dieser Propertys (name: Tabellen) den Typ TStrings. Im Designer sieht man dann, wie man es kennt, die 3 Punkte (...), auf die man dann klickt und dann kommt so ein Editor.

Das mit dem Editor klappt nicht; Fehlermeldung: nil kann nicht zu TRichEditStrings zugewiesen werden.
Mir ist schon klar warum das nicht geht. Die interne Speichervariable dieser Property ist nunmal nil. Im Konstruktor dieser Komponente wird ja auch gleich ein TStrings-Objekt erzeugt und mit eben jener internen Speichervariable referenziert.

Wie aber kann ich dafür sorgen dass ich schon zur Entwurfszeit mit obigem Editor arbeiten kann? Mit ListBoxes o.ä. haben sie es schließlich auch hingekriegt.

Folgende relevante Quellcodeteile:

Delphi-Quellcode:

 TFeldSperrManager = class(TComponent)

  private
        Ftabellen: TStrings;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
        procedure setTabellen(myTabellen: TStrings);
  public
    { Public-Deklarationen }
        constructor Create(AOwner: TComponent); override;
  published
    { Published-Deklarationen }
        property Tabellen: TStrings read FTabellen write setTabellen;
  end;

//...

constructor TFeldSperrManager.Create(AOwner: TComponent);
begin
        inherited;
        FTabellen:= TStrings.Create;
end;

//...
procedure TFeldSperrManager.setTabellen(myTabellen: TStrings);
begin
        FTabellen.Assign(myTabellen);
        // hab ich mal aus TCustomListBox abgeguckt. Leider ohne Erfolg.
        // Vorher habe ich gänzlich auf Getter/Setter verzichtet (sondern direkt FTabellen angegeben). Auch ohne Erfolg.
end;

//...

Bin gespannt...

ps. Suchfunktion habe ich genutzt, die hiesige Suchfunktion ist jedoch etwas für fortgeschrittene. Daher: Wenn mir jemand einen Tipp geben kann mit welchen Suchbegriffen ich hier was gefunden hätte, bin ich gerne bereit daraus zu lernen.

[IceBube]

Hallo!
Das Problem hatte ich auch einmal

Die Lösung ist ganz einfach...

FTabellen := TstringList.Create; lg

[HenKst]

Liegt daran das TStrings ein abstrakter typ ist.
Das Create macht also ungefähr nichts (jedenfalls nichts was mit strings zu tun hat)

TStringlist.create sollte das Problem lösen

[sirius]

Wie meine Vorredner sagten ist TStringList eine Lösung.

TStrings ist dafür gedacht, dass du bspw. eine eigene Anforderung an deine Liste hast. Z.B. ein Memo hat keine TstringList dahinter sondern, TMemoStrings; Ein Grid hat irgendwelche TGridstrings im Inneren. Das interessiert dich nur nicht, weil alle denselben Aufbau haben wie die abstrakte Klasse TStrings. Und intern machen sie noch ein wenig mehr und unterscheiden sich auch. Ansprechen kannst du also alle Klassen mit TStrings und zwar über die virtuellen Schreib- und Lese-Methoden. TStrings ist nur die Verpackung, innen sind die Methoden unterschiedlich implementiert.

[little-x]

Tja das war's auch schon. Jetzt sind auch gleich die Laufzeitfehler der Art "abstrakter Fehler" mit weg, die aufgetreten sind als ich die Einträge programmiertechnisch hinzufügen wollte.

Werd's mir merken!

Danke!