ich würde gerne in einer Komponente TStrings als property verwenden
(so wie bei TMemo).

Wie geht das? Ich habe folgendes versucht:

class PACKAGE TPanelBtn : public TPanel
{
private:
    TStringList *MemoLines;
    // ...
public:
    // ...
__property TStringList *Lines = {read=MemoLines, write=MemoLines};
}

__fastcall TPanelBtn::TPanelBtn(TComponent* Owner)
    : TPanel(Owner)
{

    MemoLines = new TStringList();
    // ...
}

klappt leider nicht, Borland beendet sich dabei mit einem "Abstakten Fehler".

Was ich machen will:
ein Panel auf dem sich ein Memo befindet, die Zeilen dieses Memos sollen
nach aussen zur Bearbeitung weitergegeben werden.

public:
    inline void SetID (int tmp) { m_rID=tmp;  };
    inline int GetID      (void) const { return m_rID; } ;
    __property int ID = {write=SetID,read=GetID};

zumindest so ungefähr

private:

 TStringList *FItems;

protected:

  void __fastcall SetItems(TStringList *Value);

__published:

  __property TStringList *Items = { read = FItems, write = SetItems };

in der cpp

//---------------------------------------------------------------------------
// Set-Funktion für FItems
//---------------------------------------------------------------------------
void __fastcall NameDeinerKomponente::SetItems(TStringList *Value)
{
  Items->Assign(Value);
}

mfg
BigNeal

wobei ich auf die gewonnenen erkenntnisse über Assign() von hier aufmerksam machen will

mfg
BigNeal

*grins* stimmt