Doppelte Einträge in Listbox verhindern

[Chewie]

Ich hab mal eine ganz doofe Frage. Ich glaube, letztens hab ich mal gesehen, wie man erreichen kann, dass in einer TStrings-Liste wie z. B. in einer Listbox jeder String nur einmal vorkommt. Das war soweit ich weiß eine einfache Eigenschaft. Aber ich find síe jetzt nicht mehr. Entweder sollte ich mal meine Augen untersuchen lassen oder ich hab halluziniert. Falls ersteres zutrifft, dann könnt ihr mir sicher noch mal auf die Sprüge helfen. Bei zweiterem würden vielleicht Adressen von Psychiatern helfen.

[Christian Seehase]

Moin Chewie,

Du meinst wahrscheinlich die Eigenschaft Duplicates.
Die Items einer ListBox verfügen allerdings nicht über diese Eigenschaft.
Du könntest Dir aber mit IndexOf behelfen. Diese Methode kennen auch die ListBox.Items.

[Daniel B]

Hi,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ListBox1.Items.Count -1 do
  begin
    if ListBox1.Items.Strings[i] = Edit1.Text then
    begin
      ShowMessage('Das Wort ' + ListBox1.Items.Strings[i] + ' wurde gefunden!');
    end;
  end;
end;

HTH

Grüsse, Daniel :hi:

[Chewie]

Puh, gott sei Dank keine Halluzination. Ich werds dann wohl mit IndexOf machen, danke. Bbei welcher Klasse hab ich eigentlich dann Eigenschaft gesehen? Ich benutz nämlich nnur recht wenige VCL-Klassen und dachte, es wär die Listbox.

[Chewie]

Zitat:

Zitat von Daniel B

Hi,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ListBox1.Items.Count -1 do
  begin
    if ListBox1.Items.Strings[i] = Edit1.Text then
    begin
      ShowMessage('Das Wort ' + ListBox1.Items.Strings[i] + ' wurde gefunden!');
    end;
  end;
end;

HTH

Grüsse, Daniel :hi:

Klar, der gute alte eindimensionale Such-Algorithmus. Der ist mir nur zuviel Arbeit, und ich hab schließlich gedacht, dafür gäbs ne Eigenschaft. Aber mit IndexOf gehts einfacher als mit der Schleife.

[Christian Seehase]

Moin Chewie,

Duplicates ist eine Eigenschaft von TStringList.

[Chewie]

Zitat:

Zitat von Christian Seehase

Duplicates ist eine Eigenschaft von TStringList.

Danke :mrgreen:

[CalganX]

Andere Möglichkeit:

Delphi-Quellcode:

function delDoubleEntries(aList:TStrings):integer;
var
 a, b: integer;
begin
  result := 0;
  if not Assigned(aList) then exit;
  while a < aList.count - 1 do
  begin
    b := a + 1;
    while b < aList.count-1 do
    begin
      if aList.Strings[a] = aList.Strings[b] then
      aList.Delete(b)
    else
      inc(b);
    end;
      inc(a);
    end;
      result := aList.count;
end;

Chris

[iaby]

so müsste es auch funzen:

Code:

if listbox1.IndexOf('wort')> -1 then showmessage('wort gefunden');

ist vielleicht die einfachste möglichkeit;-)
habs jetzt aus dem kopf gemacht, deshalb ohne garantie!

[DeddyH]

[OT] Wer schreibt denn Werbung in uralte Threads? :gruebel: [/OT]