wie ist es denn möglich, doppelte einträge nach dem sortieren zu eliminieren?
habe es wie folgt versucht, doch leider ohne erfolg:
Delphi-Quellcode:
function tform1.clean(ar:sy):sy;
var i,j:int64;
begin
i:=0;
setlength(result.zahl,length(ar.zahl));
init(strtoint(edit1.Text));
quicksort(ar,low(ar.zahl),high(ar.zahl));
while i<high(ar.zahl) do
begin
if ar.zahl[i]<>ar.zahl[i+1]
then
begin
result.zahl[i]:=ar.zahl[i];
end
else
begin
result.zahl[i]:=ar.zahl[i+1];
end;
i:=i+1;
end;
write(result);
end;