Ausgabe eines Attributes verursacht Access violation...

[Fussel9]

Hi, wenn ich folgen den Befehl ausführe:

EText.Text:=(List.getItem as TRaum).GibText;

kommt eine Access Violation, weiß jemand woran das liegt?

List enthält Elemente des Typs TElement und diese enthalten Elemente des Typs TObject

getItem git TObject aus

TRaum ist ein TObject

[Christian Seehase]

Dann ist entweder List oder List.GetItem gleich nil.
Prüf' das doch mal vor dem Aufruf.

[Fussel9]

ja stimmt, daran lags, warum auch immer wird bei der vorgegebenen Unit UList nach dem einfügen nicht auf das aktuell eingefügt element gesetzt... lol

Delphi-Quellcode:

procedure TList.insertBehind (pObject: TObject);
var newListElem : TElement;
begin
  //Falls der aktuelle Zeiger hinter der Liste steht, einen nach vorne rücken
  if zeiger=dummyBehind then previous;
  //Nun einfügen
  newListElem:=TElement.create(pObject);
  //Zuerst den neuen Knoten in die Liste einhänge
  newListElem.setzeNext(zeiger.gibNext);
  newListElem.setzePrevious(zeiger);
  //Dann den alten Nachfolger über seinen neuen Vorgänger informieren
  zeiger.gibNext.setzePrevious(newListElem);
  //Zuletzt den neuen Knoten als den aktuellen Nachfolger einsetzen
  zeiger.setzeNext(newListElem);
  next;  // NACHTRÄGLICH HINZUGEFÜGT !!!
end;