Objektzuweisung zu TStrings funktioniert nicht

[Popov]

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

[Luckie]

Wo wird List erzeugt?

[Popov]

Ok, alles zurück. Es funktioniert. So schnell geht es manchmal mit der Lösung.

Ich sitze nun seit paar Stunden an einem Code der funktionieren sollte und nicht funktioniert.

Des Rätsels Lösung: Statt ListBox habe ich mich verknickt und Memo genommen. Das kann ja nicht funktionieren

//Edit:

Zitat von Luckie:

Wo wird List erzeugt?

Du warst schon fast auf dem richtigen Weg. ICh habe mich zu sehr auf den Code konzentriert.

[DeddyH]

Und wo ist nun der Unterschied zwischen Listbox.Items und Memo.Lines? Sind doch beides TStrings.

[himitsu]

Beim Memo/RichEdit werden die Objekts nicht gespeichert, da es keine eindeutig stabile Unterteilung der Zeilen gibt, bzw. der Benutzer durch seine Eingaben alles schrotten kann.

Leider wirft TMemoStrings keine Fehlermeldung bei Zuweisung von Objekts.

[DeddyH]

Klar, ich hätte mal einen Kaffee mehr trinken sollen

[himitsu]

BorCodEmba hätte auch einfach langsam mal eine Exception einbauen können.

[Popov]

Zitat von himitsu:

BorCodEmba hätte auch einfach langsam mal eine Exception einbauen können.

Das mit einer Exception wäre eine gute Idee gewesen. Ich saß paar Stunden an den paar Zeilen, habe 100 Abfragen eingebaut, habe die Zeilen immer und immer wieder zerlegt, es musste funktionieren, aber es funktionierte nicht. Es gibt eine Exception, aber erst beim lesen, nicht beim schreiben.

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

[DeddyH]

Trotzdem ist damit nicht leicht auf die Ursache zu schließen, hier wäre eine Exception bei AddObject wirklich angebracht gewesen.