strings einer combobox vergleichen

[Dalai]

Das dachte ich zuerst auch. Sieht aber so aus, als gäbe es da nur TStringList.Duplicates. Da TComboBox.Items aber vom Typ TStrings ist, gibt's da offenbar kein simples Property, um Duplikate zu verhindern. Daher ist die Variante mit TComboBox.Items.IndexOf wohl ein einfacher Workaround. Oder man erweitert TComboBox mit einer Ableitung um eine Methode, die die Existenz eines Strings in der Liste prüft.

Grüße
Dalai

[Luckie]

Ah. OK. Ich hatte nur im Hinterkopf, dass da was war.

Warum aber nicht erst alles in eine Stringliste packen und diese dann der Combobox zuweisen?

[Delphi.Narium]

Zitat von Luckie:

Ah. OK. Ich hatte nur im Hinterkopf, dass da was war.

Warum aber nicht erst alles in eine Stringliste packen und diese dann der Combobox zuweisen?

Weil TStringList intern die Methoden nutzt, die es von TStrings geerbt hat.

Man landet also in beiden Fällen zur Suche nach Dubletten bei IndexOf. Dann kann man es auch direkt verwenden

[Bernhard Geyer]

Lade die Liste erst mit dupIgnore in eine TStringsList und kopiere das Ergebnis dann EnBlock in die ComboBox.
Ist auch noch viel schneller als die Strings einzeln in die ComboBox zu bringen.

[Michael II]

Zitat:

Warum aber nicht erst alles in eine Stringliste packen und diese dann der Combobox zuweisen?

Zitat:

Lade die Liste erst mit dupIgnore in eine TStringsList und kopiere das Ergebnis dann EnBlock in die ComboBox.
Ist auch noch viel schneller als die Strings einzeln in die ComboBox zu bringen.

In #6 ja bereits so gepostet. Der Ansatz macht aber nur Sinn, wenn die Combobox Elemente sortiert sein dürfen, da dupIgnore nur bei sortierten Listen Wirkung zeigt...

[dummzeuch]

Zitat von Michael II:

In #6 ja bereits so gepostet. Der Ansatz macht aber nur Sinn, wenn die Combobox Elemente sortiert sein dürfen, da dupIgnore nur bei sortierten Listen Wirkung zeigt...

Es macht auch Sinn, wenn sie nicht sortiert sein sollen, dann muss man halt mit IndexOf arbeiten. Es ist trotzdem deutlich schneller, weil keine Windows-Messages in der Gegend rumgeschickt werden.

Man kann auch mit zwei Stringlists arbeiten: Einer sortierten und einer unsortierten. Insert liefert -1 zurück, wenn der String beim Einfügen in eine sortierte Stringlist bereits existierte. In dem Fall fügt man ihn nicht in die unsoriterte ein.

Und noch ein Hinweis zum Code in #6: Statt Text zuzuweisen kann man auch gleich die StringList auf Items zuweisen.

combobox1.Items := Text;

[Luckie]

Zitat von Bernhard Geyer:

Lade die Liste erst mit dupIgnore in eine TStringsList und kopiere das Ergebnis dann EnBlock in die ComboBox.
Ist auch noch viel schneller als die Strings einzeln in die ComboBox zu bringen.

Genau das habe ich doch vorgeschlagen!

[Bernhard Geyer]

Zitat von Luckie:

Zitat von Bernhard Geyer:

Lade die Liste erst mit dupIgnore in eine TStringsList und kopiere das Ergebnis dann EnBlock in die ComboBox.
Ist auch noch viel schneller als die Strings einzeln in die ComboBox zu bringen.

Genau das habe ich doch vorgeschlagen!

Deinen zweiten Post habe ich übersehen

[neroo]

Zitat von Bernhard Geyer:

Lade die Liste erst mit dupIgnore in eine TStringsList und kopiere das Ergebnis dann EnBlock in die ComboBox.
Ist auch noch viel schneller als die Strings einzeln in die ComboBox zu bringen.

Danke für eure Antworten

wie kann man die strings in der liste aufaddieren? denn die Liste läuft innerhalb einer while schleife und deshalb wird nur der letzte Eintrag zu der liste hinzugefügt.

Code:

stringlist:=TStringList.Create;
            stringlist.Sorted:=true;
            stringlist.Duplicates:=dupIgnore;
            with stringlist do
               begin  
               add(etabelle.cells[1,i]); 
               end;

            with ListBox1 do
              begin
              items.Assign(stringlist);
              end;

            stringlist.free;

[Luckie]

Wo ist da eine while-Schleife in deinem Code?

Code:

StringListe erzeugen
StringListe Eigenschaften setzen
while()
begin
  StringListe.Add();
end;
StringListe Combobox zuweisen
StringListe freigeben

Und lass das with-do bitte weg. Es erschwert das Debuggen und führt schnell zu schwer zufindeden Fehlern.