Listbox-Items werden nicht richtig angezeigt und gespeichert

[s-off]

Hallo,

ich könnte mir vorstellen, dass Dir in diesem Fall die Haltepunkte und der Delphi-Debugger sehr gut helfen können.

Solltest Du hier

DriveListBox.Items.Text; nicht vielleicht Item für Item in einer Schleife durchgehen, also

DriveListBox.Items.Strings[i] ?

Items ist vom Typ TStrings und dessen Eigenschaft 'Text' enthält den gesamten Inhalt. Wenn Du also den gesamten Inhalt mehrfach irgendwo einfügst, erhältst Du in dem Ergebnis auch jedes Element mehrfach.

Wenn Du die Variable variable im weiteren Verlauf nicht mehr benötigst, dann solltest Du der Übersichtlichkeit halber lieber schreiben

for i_d := Listbox.Items.Count div 2 to DriveListBox.Items.Count do Das nur am Rande, obwohl sich mir der Sinn dieses Konstruktes nicht so ganz erschließt .