Objektzuweisung zu TStrings funktioniert nicht

[Furtbichler]

Menno, einfach gemein.

[himitsu]

Leere Funktionen sind halt genauso schlimm, wie leere Try-Except ... sowas macht man einfach nicht, denn das Ergebnis sieht man hier.

Delphi-Quellcode:

function TStrings.GetObject(Index: Integer): TObject;
begin
  Result := nil;
end;

procedure TStrings.PutObject(Index: Integer; AObject: TObject);
begin
end;

(wird von TMemoStrings nicht überschrieben)


Aber über die das NIL der Zugriffsverletzung bin ich damals recht schnell auf das Problem gestoßen.

Selbst hier ging es nicht und da sollte es von Codeseite kaum Probleme geben (solange mindestens eine Zeile vorhanden ist).

Delphi-Quellcode:

Memo1.Objects[0] := irgendwas;
if Memo1.Objects[0] = irgendwas then 
  ...

[Popov]

Zitat von himitsu:

Wobei dir die Exception mit dem geheimen Text ala "Zugriffsverletzung bei Adresse 00000xxx" (welche man vergessen hat uns zu verraten) dir auch zagen wollte, daß dort etwas fehlt 00000xxx = nil (mit 'nem kleinen Offset)

Und das nil hätte einen schon auf eine gute Fährte bringen können.

Das mit dem nil ist mir schon aufgefallen (siehe Quelltext erster Beitrag), nur war mir das nil unbegreiflich, da es in einer ListBox nicht sein dürfte. Also suchte ich den Grund für das nil. Und wie gesagt, ich war der Meinung ich nutze eine ListBox. Das zu prüfen ist mir erst eingefallen als ich den Beitrag geschrieben habe.