nil kann nicht zu TRichEditStrings zugewiesen werden

[Dennis07]

Hallo,
ich schreibe zZ eine Komponente und habe in einem TCollectionItem eine TStrings-Property.
Deklariert ist sie als TStrings, erzeugt wird sie als TStringList.

Delphi-Quellcode:

type
  TMyItem = class(TCollectionItem)
  private
    { Private-Deklarationen }
    FLines: TStrings;
    function GetLines: TStrings;
    procedure SetLines(Value: TStrings);
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create; overload;
    constructor Create(const AFileName: TFileName); overload;
    destructor Destroy; overload;
  published
    { Published-Deklarationen }
    property Lines: TStrings read GetLines write SetLines;
  end;

implementation

constructor TMyItem.Create;
begin
  FLines := TStringList.Create;
end;

constructor TMyItem.Create(const AFileName: TFileName);
begin
  Create;
  Lines.LoadFromFile(AFileName);
end;

destructor TMyItem.Destroy;
begin
  FLines.Free;
  inherited;
end;

function TMyItem.GetLines: TStrings;
begin
  Result := FLines;
end;

procedure TMyItem.SetLines(Value: TStrings);
begin
  FLines.Assign(Value);
end;

end.

Nun bekomme ich jedes mal den Fehler:

Zitat:

nil kann nicht zu TRichEditStrings zugewiesen werden

sobald ich in der IDE auf die Lines-Property zugreifen will.

Ich habe bereits versucht, das FLines beim Assign zu casten und die Get-methode durch einen normalen Var-Zugriff zu ersetzen, leider ohne Erfolg.

Es gab bereits einige Threads bezüglich dieses Problems, aber entweder lag es dort an anderen Dingen oder die Antwort hat mir auch nicht weitergeholfen.

Ich hoffe, ihr könnt mir helfen...

MfG; Dennis

[himitsu]

Wo ist das inherited in TMyItem.Create; ?

Und wenn du weißt, daß es am SetLines liegt und der kein NIL verträgt, warum fängst du das da dann nicht ab?

Delphi-Quellcode:

if Assigned(Value) then
  FLines.Assign(Value)
else
  FLines.Clear;

PS: property Lines: TStrings read FLines write AssignLines;
Der "leere" Getter weggelassen und der Setter umbenannt ... schon hat man eine Methode eingesparrt und die Andere heißt so, wie das, was sie macht.

[Dennis07]

Naja, die Methode umzubenennen kann zwar sinnvoll sein, aber das löst ja kein Problem.

Das mit dem inherited hatte ich noch nicht eingefügt, da die klasse halt wie gesagt relativ neu ist

Aber zurück mit dem Assigned-Überprüfen:
Bisher hatte ich so etwas erstens noch nicht getan bei soetwas und es hat trotzdem gefunzt, und außerdem begreife ich nicht, wie das helfen soll?
Ich will ja trotzdem irgendwie ne TStringList raushaben, egal ob die NIL ist oder nicht. Und wieso die NIL ist, verstehe ich auch nicht. Ich habe ihr doch einen Wert zugewiesen?!?

Tut mir leid, aber könntest du mir das genauer erklären? Ich schätze, das habe ich noch nicht ganz verstanden... sry

MfG

[Sir Rufo]

Man setze auf die Zeile mit dem TStringList.Create einen Breakpoint und wundert sich, warum dort gar nicht angehalten wird.

Weil dieser Konstruktor niemals aufgerufen wird!

Ein Blick in die Dokumentation System.Classes.TCollectionItem.Create

[Dennis07]

...und man werfe einen Blick auf die .Add methode, wo drin steht:

Delphi-Quellcode:

function TCollection.Add: TCollectionItem;
begin
  Result := FItemClass.Create(Self);
  Added(Result);
end;

[bcvs]

Was Sir Rufo meint: Dein Create ist als overload deklariert, das wird so nie aufgerufen, es muss override heißen.

Und wie schon gesagt, fehlt dort das inherited.

[Sir Rufo]

Zitat von bcvs:

Was Sir Rufo meint: Dein Create ist als overload deklariert, das wird so nie aufgerufen, es muss override heißen.

Und wie schon gesagt, fehlt dort das inherited.

Zudem meine ich noch, dass die Konstruktoren völlig falsch gewählt sind und darum niemals aufgerufen werden.

Entweder man überschreibt den Konstruktor TCollectionItem.Create( Collection : TCollection );

Delphi-Quellcode:

TMyItem = class( TCollectionItem )
public
  constructor Create( Collection : TCollection ); override;
end;

constructor TMyItem.Create( Collection : TCollection );
begin
  inherited {Create( Collection )};
  ...
end;

oder, wenn einen die übergebenen Werte im Konstruktor egal sind, dann überschreibt man einfach TObject.AfterConstruction;

Delphi-Quellcode:

TMyItem = class( TCollectionItem )
public
  procedure AfterConstruction; override;
end;

procedure TMyItem.AfterConstruction;
begin
  inherited;
  ...
end;

Für das Ableiten von Klassen unterstützt einen die IDE ("Use the force, Luke!")

Im Deklarationteil der neuen Klasse drückt man beherzt <STRG>+<LEERTASTE> und bekommt (wie durch Zauberhand)

Nun wählt man sich gemütlich eine (oder auch mehrere) Einträge aus und hämmert auf <ENTER>

Ah, ja ... und nun? Ein weitere beherzter Druck auf <UMSCH>+<STRG>+C bringt uns zu

Also so ein Hinweis "die Klasse ist noch neu, da habe ich das inherited noch weggelassen" dokumentiert nur die Unkenntnis im Umgang mit der IDE. Aber gegen Unkenntnis kann man etwas unternehmen

[Dennis07]

Ich habe nicht gesagt, dass ich es "weggelassen" habe. Ich habe es halt nur noch nicht eingefügt gehabt...
Und Dank an dieser Stelle, deine Lösung hat mir geholfen. War ein Denkfehler, das override; muss da natürlich hin...

MfG