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
...