procedure AddItems(_file: WideString; _object: TListBox);
var
ini: TIniFile;
Vorname, Nachname, Alter, PLZ, Stadt, Straße, Haus, Kommentar, Index, ItemText: string;
d : Double;
i : Integer;
begin
d := 0.0;
ini := TIniFile.Create(_file);
try
repeat
// Müssen hier die Einträge tatsächlich Tausenderpunkte in der Nummerierung enthalten?
Vorname := ini.ReadString('Vorname', Format('vorname%.0n',[d]), '');
Nachname := ini.ReadString('Nachname', Format('nachname%.0n',[d]), '');
Alter := ini.ReadString('Alter', Format('alter%.0n',[d]), '');
PLZ := ini.ReadString('PLZ', Format('plz%.0n',[d]), '');
Stadt := ini.ReadString('Stadt', Format('stadt%.0n',[d]), '');
Straße := ini.ReadString('Strasse', Format('strasse%.0n',[d]), '');
Haus := ini.ReadString('Haus', Format('haus%.0n',[d]), '');
Kommentar := ini.ReadString('Kommentar', Format('kommentar%.0n',[d]), '');
Index := ini.ReadString('Index', Format('index%.0n',[d]), '');
ItemText := Format('%s %s, %s, %s, %s %s, %s %s',[Vorname, Nachname, Alter, Straße, Haus, PLZ, Stadt]);
// Wenn nix gefunden wurde ist ItemText = ' , , , , '.
i := Length(ItemText);
if i > 11 then _object.Items.Add(ItemText);
d := d + 1;
until i = 11;
finally
ini.Free;
end;
end;