TStringList in TListBox eintragen

ggehrma · Beiträge: 111 WinXP D2005 Pers.

Hallo,

Ich lese aus einer ini-Datei eine Stringliste aus. Die einzelnen Elemente der StringListe sollen denn in eine ListBox eingetragen werden. Das mache ich mit folgendem Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

    ExtVorhanden := ini.ReadString('Endungen', 'Vorhanden', '');
    ExtV := TStringList.Create;
    ExtV.CommaText := ExtVorhanden;
    FOR i := 0 TO ExtV.Count - 1 DO BEGIN
      IF i = ExtV.Count - 1 THEN
        lstOverview.Items.Add('Sonstige')
      ELSE
        lstOverview.Items.Add('*'+ExtV.Strings[i]);
    END;

Aber aus irgendeinem Grund wird die Stringliste mehrmals in die ListBox eingetragen. Wo liegt mein Fehler?

mfg, ggehrma

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

_________________
"...To boldly go where no one has gone before."

jakobwenzel · Verfasst: Sa 23.07.05 14:19

Wird der Code (versehentlich) mehrmals ausgeführt? Wenn ja, lösch doch den Inhalt der Listbox, bevor du den neuen Inhalt einfügst.

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

ggehrma · Beiträge: 111 WinXP D2005 Pers.

Das scheint es gewesen zu sein. Hab zwar keine Stelle gefunden, wo der Code doppelt ausgeführt wird, aber jetzt funktioniert es.

Danke.

_________________
"...To boldly go where no one has gone before."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme