TStringList als Property

[IIIMADDINIII]

hallo erst mal

Ich arbeite an einer neuen komponente. Ich wollte eine TStringList zu den Propertys hinzufügen. Aber immer wenn ich auf dieses property zugreifen will Sagt er mir das er ein Read error hat. Ich habe keine ahnung woran es liegt. ich habe diesen fehler jetzt schon drei tage und er will sich nicht auflösen.

[Bernhard Geyer]

Glaskugel auspack: Du solltest die Stringliste in deiner Komponente auch anlegen

Delphi-Quellcode:

type 
  TMyType = class(TPersistent)
  private
    FMyStringList: TStrings;
  public
    constructor Create(Owner: TObject);
    MyStringList: TStrings read FMyStringList write SetMyStringList;
  end;

constructor TMyType.Create(Owner: TObject);
begin
  inherited

  FMyStringList := TStringList.Create;
end;

procedure SetMyStringList(Value: TStrings);
begin
  FMyStringList.Assign(Value);
end;

[Muetze1]

@Bernhard Geyer: Willst du nicht lieber das "property" Schlüsselwort verwenden? Und vielleicht den Member auch wieder freigeben?

[IIIMADDINIII]

ich habe die stringliste declariert ind auch gecreatet funct aber trotzdem nicht

[mkinzler]

Wie versuchst du darauf zuzugreifen?

[Bernhard Geyer]

Zitat:

Zitat von Muetze1

@Bernhard Geyer: Willst du nicht lieber das "property" Schlüsselwort verwenden? Und vielleicht den Member auch wieder freigeben?

Wer will den gleich so kleinlich sein :mrgreen:
Wenn man Abends sich nebenbei mit Word und Einladungskarten herumärgern muss :twisted:

Zitat:

Zitat von IIIMADDINIII

ich habe die stringliste declariert ind auch gecreatet funct aber trotzdem nicht

Dann lass doch mal etwas Code rüberwachsen. Du sieht ja das So abend die Glaskugen nicht so richtig funktionieren. Muss an der Zeitumstellung liegen ...

[p80286]

Meine Glaskugel sagt
count=0

Gruß
K-H

[khh]

Zitat:

Zitat von Bernhard Geyer

Wenn man Abends sich nebenbei mit Word und Einladungskarten herumärgern muss

OT: dann nimm doch OpenOffice ;-)


Gruss Kh

[DeddyH]

Ohne das jetzt ausprobiert zu haben: genügt nicht eine ReadOnly-Property, da man die Instanz ja nicht verändern möchte, sondern nur ihre Methoden aufrufen?

Delphi-Quellcode:

type
  TMyType = class(TPersistent)
  private
    FMyStringList: TStrings;
  public
    constructor Create(Owner: TComponent);override;
    destructor Destroy;override;
    property MyStringList: TStrings read FMyStringList;
  end;

constructor TMyType.Create(Owner: TComponent);
begin
  inherited;
  FMyStringList := TStringList.Create;
end;

destructor TMyType.Destroy;
begin
  FMyStringList.Free;
  inherited;
end;

Nur dahergetippt, daher ohne Gewähr.

[Muetze1]

Zitat:

Zitat von DeddyH

Ohne das jetzt ausprobiert zu haben: genügt nicht eine ReadOnly-Property, da man die Instanz ja nicht verändern möchte, sondern nur ihre Methoden aufrufen?

- Wenn die Property in den Published Bereich verschoben werden soll, dann würde sie im Inspektor nicht auftauschen, wenn sie r/o ist.
/EDIT: nicht ohne weiteres. Es gibt die Möglichkeit mit Rechtsklick auf dem OI alle r/o Properties mit anzuzeigen.
- Er hat extra einen Setter geschrieben, damit er intern Assign() aufruft, was der vollkommen korrekte Weg wäre und diese Property auch Komponententauglich/Objektinspektor-tauglich zu machen.
- Grundsätzlich hast du Recht, es würde reichen, aber mit einem Setter und Assign() würde auch sowas möglich werden:

Delphi-Quellcode:

  MyType.MyStringList := ListBox1.Items;

Bei deiner Lösung ohne Setter müsste man immer

Delphi-Quellcode:

  MyType.MyStringList.Assign(ListBox1.Items);

nutzen. Im Endeffekt der gleiche Code, nur beim zweiten muss das auch der x. Anwender von TMyType dieses Wissen haben. Ersteres klappt nach Plug'n'Pray Methoden und verhält sich gleich zur VCL.