ausgabe einer suche ohne doppelungen in Listbox

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