ausgabe einer suche ohne doppelungen in Listbox

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