ausgabe einer suche ohne doppelungen in Listbox

[theNick]

hallo,
ich hab schon nen bisschen rumgesucht konnte aber noch nichts dazu finden.

Ich will eine suche machen, welche in der listbox ausgegeben werden soll.
Allerdings sollen doppelte Namen/... nicht vorkommen

Da ich aber nicht weiß wie man die einzelnen items anspricht und sie löscht komme ich net wirklich weiter.
Hier mein code:

Delphi-Quellcode:

   if RadioButtonjahrgang3.checked = true THEN
      BEGIN
        if StrToInt(Editsuchen3.text) = Schuelerfeld[i].jahrgang THEN // i ist die zähl variable, der das ganze arry (1..1000) durchgeht
          begin
            a := a+1;
            ListBox3.Items.add(IntToStr(Schuelerfeld[i].jahrgang));
          end
        else
          if a = 0 THEN
              StatusBar.Panels[0].text := 'Kein Eintrag gefunden!'
          else
            begin
              if a = 1 THEN
                  StatusBar.Panels[0].text := 'Es wurde ' + IntToStr(a) + ' Eintrag gefunden'
              else
                StatusBar.Panels[0].text:= 'Es wurden ' + IntToStr(a) + ' Einträge gefunden';
            END
      END;

[Union]

Hallo,

die Items einer Listbox sind vom Typ TStringlist. Elemente findest Du mit IndexOf(<gesuchter String>).

Alternativ kannst Du Sorted := true setzen und Duplicate auf dupIgnore. Dann wird die Liste automatisch sortiert und Duplikate tauchen nicht auf.

[Mitchl55]

Hallo,

wie ist es denn damit?

Link

Gruß

Mitchl

[theNick]

Zitat:

Zitat von Union

Hallo,

die Items einer Listbox sind vom Typ TStringlist. Elemente findest Du mit IndexOf(<gesuchter String>).

Alternativ kannst Du Sorted := true setzen und Duplicate auf dupIgnore. Dann wird die Liste automatisch sortiert und Duplikate tauchen nicht auf.

hab das damit versucht ->

Delphi-Quellcode:

[...]
ListBox3.Sorted := true;
ListBox3.Duplicates := dupIgnore;
[...]

funzt irgendwie net, sagt duplicates = undefinierter bezeichner

sry bin nen ziemlicher delphi noob

[Union]

Das sind Eigenschaften von Items

[Mitchl55]

Ja, also ist mein Vorschlag raus? Falsch? Nicht das was Du suchst?

Gruß

Mitchl

[Union]

Naja, das ist nicht so schön. Direkt mit Windows-Messages die VCL zu beschiessen wo es auch mit Bordmitteln geht...

[theNick]

Zitat:

Zitat von Mitchl55

Hallo,

wie ist es denn damit?

Link

Gruß

Mitchl

danke für den tipp, das is mir nur nen bisschen zu komisch mit den verschiedenen Tabs, da steige ich ent wirklich durch.

Ich versuche die ganze zeit das mit dem Dublicates := dubIgnore hinzubekommen ... ich versuche das mit ner ListBox, geht das deswegen net ? kannst du mir ma die zeile schreiben wie das heißen soll ?
-> TStringList(ListBox3).Duplicates := dupIgnore; oder so ?
komme echt net weiter da :/ sry ich weiß die Fragen sind nen bisschen dumm aber hab gerade erst angefangen mit Delphi :D

[Union]

Hier nochmal im Klartext:

Delphi-Quellcode:

Listbox3.Items.Sorted := true;
ListBox3.Items.Duplicates := dupIgnore;

[theNick]

Zitat:

Zitat von Union

Hier nochmal im Klartext:

Delphi-Quellcode:

Listbox3.Items.Sorted := true;
ListBox3.Items.Duplicates := dupIgnore;

das hab ich auch ausprobiert, nachdem du gesagt hast das das eigenschaften von items sind.
Kommt immer das gleiche, er akzeptiert duplicates net (sorted geht glaub ich mit Listbox3.Sorted := true;)

[Fehler] Unit1.pas(1108): E2003 Undefinierter Bezeichner: 'Sorted'
[Fehler] Unit1.pas(1109): E2003 Undefinierter Bezeichner: 'Duplicates'

[inherited]

Duplicates existiert nur in einer TStringlist

[Union]

Sorry,

es ist tatsächlich TStrings und nicht TStringlist. Du könntest es nur selber machen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
   Strings : Array[0..4] of string = ('abc', 'def', 'ghi', 'abc', 'def');
var
   i : shortint;
begin
   for i := 0 to high(Strings) do
      if ListBox1.Items.IndexOf(Strings[i]) = -1 then
         Listbox1.Items.Add(Strings[i]);
end;

[inherited]

Oder rst in eine StringList und dann in die ListBox packen

[DevilsCamp]

Ich würde es so machen:

Delphi-Quellcode:

sl := TStringList.Create;
sl.Sorted := true;
sl.Duplicates := dupIgnore;

// Code zum suchen und speichern in sl


ListBox1.Items.Assign(sl);
sl.Free;

[theNick]

danke inherited und DevilsCamp für den tipp
funzt wunderbar :DDD