TStringDictionary: Access Violation beim Auslesen der Daten?

[romber]

Ich benutze in meinem Projekt die tollen Hash-Tabellen-Komponenten, die alzaimar mal gescherieben und hier im Code-Library veröffentlicht hat. Und zwar lade ich in eine TIntegerDictionary die Daten aus einer XML-Datei. Die Daten sehen folgendermassen aus:

<MANUFACTURERS>
<MANUFACTURER code="1" text="Das ist Text_1">
<MANUFACTURER code="2" text="Das ist Text_2">
<MANUFACTURER code="3" text="Das ist Text_3">
<MANUFACTURER code="4" text="Das ist Text_4">
<MANUFACTURER code="5" text="Das ist Text_5">
</MANUFACTURERS>

Die Inhalt der Attribute "code" wird in den Integer umgewandelt und landet als "key" in die IntegerDictionary. Den Inhalt von "text" wird dann zu den Daten, auf die den Pointer zeigt. So sieht es bei mir aus:

Delphi-Quellcode:

var
  libEngineManufacturers: TIntegerDictionary;
...

procedure LookuptabellenErstellen;
var
  XMLDoc: IXMLDocument;
  XMLRoot: IXMLNode;
  XMLEngineManufacturers: IXMLNode;
  Value: string;
  Code: string;
  i: integer;
begin
  XMLDoc := NewXMLDocument;
  XMLDoc.LoadFromFile(LOOKUP_PATH + XML_LOOKUP_FILE);
  XMLDoc.Active := true;
  XMLRoot := XMLDoc.DocumentElement;

  if Assigned(XMLRoot.ChildNodes.FindNode('MANUFACTURERS')) then
  begin
    XMLEngineManufacturers := XMLRoot.ChildNodes['MANUFACTURERS'];
    for i := 0 to XMLEngineManufacturers.ChildNodes.Count - 1 do
    begin
      Value := XMLEngineManufacturers.ChildNodes[i].Attributes['text'];
      Code := XMLEngineManufacturers.ChildNodes[i].Attributes['code'];
      libEngineManufacturers.Add(StrToInt(Code), Pointer(Value));
    end;
  end;
end;

Beim versuch, die Daten dann über den Key zu finden, kommt es zu Access Violation.

Delphi-Quellcode:

function GetManufacturer(const AManufacturerCode: integer): string;
var
  pManufacturerName: Pointer;
begin
  Result := 'Unbekannt';
  if libEngineManufacturers.Find(AManufacturerCode, pManufacturerName) then   \\  <---Bereits hier kommt es zum Access Violation
  Result := string(pManufacturerName);
end;

Was mache ich falsch?

[jaenicke]

Ich sehe nirgends, dass du libEngineManufacturers irgendwo erstellst.

[romber]

Die libEngineManufacturers wird beim Create der Form erstellt.

[mkinzler]

Warum machst du das Objekt nicht zum Formmember und die freien Prozeduren zu Methoden?

[jaenicke]

Ich sehe gerade, dass du einen String als Pointer reinlegst. Der ist aber eine lokale Variable, die durch den Pointercast AFAIK ihre Referenzzählung verliert. Daraufhin wird der String freigegeben, weil der Referenzzähler auf 0 steht, und ist nicht mehr verfügbar, wenn du den Pointer dann abrufst.