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:

Zitat von Luckie (Beitrag 1148606)

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 :mrgreen:

[himitsu]

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

[Popov]

Zitat:

Zitat von himitsu (Beitrag 1148643)

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

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.

[Furtbichler]

Menno, einfach gemein.

[himitsu]

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

[Popov]

Zitat:

Zitat von himitsu (Beitrag 1148660)

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.

Das mit dem nil ist mir schon aufgefallen (siehe Quelltext erster Beitrag), nur war mir das nil unbegreiflich, da es in einer ListBox nicht sein dürfte. Also suchte ich den Grund für das nil. Und wie gesagt, ich war der Meinung ich nutze eine ListBox. Das zu prüfen ist mir erst eingefallen als ich den Beitrag geschrieben habe.