Objekt freigeben

[Yheeky]

Danke für den kleinen versteckten Hinweis Habe den Fehler gerade gefunden. Es liegt tatsächlich in der Funktion GetAutoByName, obwohl mit hier beim Debuggen kein Fehler angezeigt wird!

Erklärung anhand eines Ausschnittes der Unit:

Delphi-Quellcode:

function TAuto.getAuto(Index: Cardinal): TAuto;
begin
  Result := TAuto(inherited Items[Index]);
end;

function TAuto.GetAutoByName(Autoname: String): TAuto:
var
  I: Integer;
  tempAuto : TAuto;
begin
  result := nil;

  if Count <> -1 then
  begin
    for I := 0 to Count - 1 do
    begin
      tempAuto := TAuto(getItem(I)); // <-- hier liegt der Fehler

      if tempAuto.Name = Autoname then
      begin
        result := tempAuto;
        Exit;
      end;
    end;
  end;
end;

Anstatt getItem, welches in der Basisklasse verfügbar ist, muss ich natürlich getAuto aufrufen. Dann funktioniert es auch! Danke nochmal für den Denkanstoss! Sehr ihr, manchmal muss man garnicht viel helfen