Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#10

Re: doppelte elemente löschen

  Alt 13. Nov 2004, 12:40
1,5 Mio. Elemente in einer Listbox ? Wo kommen die denn her ? Da würde ich ansetzen. UNd was sollen die in der Listbox ? Da kann man nur raten. Mit diesem Delphi/Pseudogemisch würde es theor. gehen :

Delphi-Quellcode:
var st : TStringList;
    ind : integer;
begin
  st := TStringList.Create;
  if Listenanfang / Dateianfang then
  repeat
    if not st.Find(Listenelement,ind) then
      st.Insert(1);
    nächstes Element;
  until kein Element mehr / Dateiende;
end;
Jetzt kommt es nur noch auf die Sortierung an, aber die ist ja auch nicht bekannt. 8)
Gruß
Hansa
  Mit Zitat antworten Zitat