Doppelte Einträge in Listbox verhindern

[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