Ich habe dich jetzt nicht soo verstanden, daher poste ich einfach mal ein paar Ideen:
Delphi-Quellcode:
var Strs:TStrings;
begin
Strs:=TStringList.Create;
try
LoadFromFile('Lager.txt');
Listbox1.Clear;
Listbox1.Add(Strs[1]); // Zeile 2 hinzufügen
Listbox1.Add(Strs[0]); // Zeile 1 hinzufügen
Listbox1.Add(Strs[5]); // Zeile 6 hinzufügen
finally
Strs.Free;
end;
end;
Aber ich glaube, ich habe dich da irgendwie falsch verstanden
