Listbox-Items werden nicht richtig angezeigt und gespeichert

[creature]

hallo forenuser,

im zuge meiner ausbildung muss ich ja ein projekt schreiben und da hab ich eben die funktion zum auslesen von laufwerken mit integriert. d.h. es wird abgezeigt ob festplatte, cdrom oder diskette und und ... ausgegeben wird das in einer ListBox. mit der ausgabe der laufwerke ist mein erstes problem, was aber mit dem zusatz behoben wurde:

Delphi-Quellcode:

variable := Listbox.Items.Count;
variable := variable div 2;
for i_d := variable to DriveListBox.Items.Count do
  DriveListBox.Items.Delete(i_d);
//i_d ist die zählvariable

damit hab ich die ausgabe mehr oder minder reguliert bekommen. nun wollte ich aber zur weiteren verarbeitung den inhalt der listbox in eine textdatei speichern und habe diesen versuch hier unternommen:

Delphi-Quellcode:

for i:=0 to DriveListBox.Items.Count -1 do
  begin
    string_drivelist := string_drivelist + DriveListBox.Items.Text;
  end;

die laufwerke werden 3mal in den string geschrieben. kann mir da jemand von euch helfen?

herzlichen dank für eure hilfe, creature

[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 .

[Hawkeye219]

Zitat von creature:

Delphi-Quellcode:

for i_d := variable to DriveListBox.Items.Count do
  DriveListBox.Items.Delete(i_d);

Ich würde die Schleife noch einmal überdenken. Vielleicht hilft ein Blick in diesen Thread.

Gruß Hawkeye