Reihenfolge einer Listbox / Itemindex

[Cosamia]

Hallo,

ich habe eine für mich etwas knifflige Aufgabe zu erledigen, wobei ich derzeit kein Plan habe, wie so etwas zu lösen ist.

ich lese aus einem Inifile per

myini.ReadSection('DAT',datbox.Items); eine hälfte einer Referenztabelle in ein ein Listbox Namens datbox.

Dann lese ich aus einem XML File Daten in eine andere Listbox Namens Content (Die Attribute der XML sind gleich der Bezeichner aus dem Inifile).

Nun ermittle ich den Index der XML Datein (Content) in Bezug auf die aus der Inidatei (DATBOX).

Delphi-Quellcode:

function TForm1.getindex(field:string): integer;
var n:integer;
begin
result := -1;
for n := 0 to datbox.Items.Count - 1 do
  if uppercase (field) = uppercase (datbox.Items[n]) then
     result := n;
end;

Field wird aus der XML ermittelt.


Und jetzt fehlt mir die Idee wie ich die Daten aus Content in der Reihenfolge von Datbox anzeigen lassen kann.