ok nachdem ich mit dupignore nicht weiterkam habe ich mir die Lösung mit IndexOf angeschaut... und etwas programmiert, das zwar macht was ich will aber viel zu langsam:
hier mein jetziger code:
Delphi-Quellcode:
procedure TForm1.Button23Click(Sender: TObject);
var
i:integer;
var start,dauer:Cardinal;
begin
start := GetTickCount();
slopt.Clear; //slopt leer machen
setlength(optvarrayindfirst,sl.Count); //index array bekommt seine länge verpasst...
for i := 0 to 2 do begin //die ersten drei elemente kopieren, da die sowieso immer unterschiedlich sind
slopt.Add(sl[i]);
optvarrayindfirst[i]:=i+1; //und im indexarray speichern
end;
for I := 3 to sl.Count - 1 do //für den rest
if slopt.IndexOf(sl[i])=-1 then //prüfen ob es das element schon gibt...
try
slopt.Add(sl[i]); // wenn nicht, hinzufügen
finally begin
optvarrayindfirst[i]:=slopt.count; // und index in indexarray schreiben
end;
end else begin
optvarrayindfirst[i]:=(slopt.IndexOf(sl[i])+1); //wenn doch, dann die position davon ins indexarray schreiben
end;
dauer := GetTickCount() - start;
panel2.Caption:='reduziert auf '+inttostr(slopt.count)+' hat '+floattostr(dauer/1000)+' Sekunden gedauert';
end;
Wie ihr seht habe ich die zeit gestoppt die diese aktion dauert... und muß leider sagen das ist unbrauchbar für meine fälle... ein mittelgroßer datensatz hat 20 minuten gebraucht um von 122760 zeilen auf 20438 zeilen runtergekürzt zu werden...
ich erwarte aber datenmengen mit weit über 1 millionen zeilen...
dupignore kürzt den selben datensatz in 0,8 sekunden, würfelt ihn mir aber gnadenlos durcheinander und ich bekomme das mit dem indexarray nicht hin, das brauche ich aber zwingend.
hier mein Ansatz mit DupIgnore:
Delphi-Quellcode:
procedure TForm1.Button19Click(Sender: TObject);
var i:integer;
var idx:integer;
var start,dauer:Cardinal;
begin
start := GetTickCount();
slopt.clear;
slopt.Sorted:=true; // ohne das geht es nicht, aber mit kann ichs nicht gebrauchen.... oder doch??
slopt.duplicates:=dupignore;
for i := 0 to sl.count - 1 do
slopt.Add(sl[i]);
//panel2.caption:=inttostr(slopt.Add(i)); // auskommentiert, weils nicht funktioniert...
listbox4.Items.Add(inttostr(idx)); //
dauer := GetTickCount() - start;
panel2.Caption:='reduziert auf '+inttostr(slopt.count)+' hat '+floattostr(dauer/1000)+' Sekunden gedauert';
end;
hat jemand eine idee, wie ich das indexarray mit dupignore hinbekommen kann?
danke schonmal