Ich sehe wieder vor lauter Bäume den Wald nicht mehr. Seit paar Stunden sehe ich den Fehler nicht. Das Schöne dabei ist, dass ich den nicht mal reproduziert kriege. Ich habe inzwischen fünf neue, leere Projekte erstellt, diesen Code eingegeben und versucht den Fehler zu reproduzieren, aber es funktioniert immer. Nur hier nicht. Auch habe ich das schon an die 100 mal so in anderen Projekten erstellt. Das ist ein simpler Code.
List ist in diesem Fall eine ListBox.
Delphi-Quellcode:
type
TInfo = class
Test: String;
end;
...
Info := TInfo.Create;
Info.Test := 'Test';
//a := List.AddObject(Str, Info);
a := List.Add(Str);
List.Objects[a] := Info;
Info := TInfo(List.Objects[a]); //Info wird hier nil
ShowMessage(List[a]); // Funktioniert
ShowMessage(Info.Test); / Es knallt