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?