---

Jeg har forlist min quicksortprocedure. Er der nogen, som har en ved hånden.
Jeg har glemt, hvor jeg fandt min!

vh og glædelig Jul

Niels Aage

---

Hej her er min:

var
X: array of double;

procedure QuickSort(iLo, iHi: longInt);
var
Lo,Hi: longInt;
Mid,T: double;
begin
Lo:= iLo;
Hi:= iHi;
Mid:= X[(Lo + Hi) div 2];
repeat
while X[Lo]<Mid do Inc(Lo);
while X[Hi]>Mid do Dec(Hi);
if Lo<=Hi then
begin
T:= X[Lo]; X[Lo]:= X[Hi]; X[Hi]:= T;
Inc(Lo);
Dec(Hi);
end;
until Lo>Hi;
if Hi>iLo then QuickSort(iLo,Hi);
if Lo<iHi then QuickSort(Lo,iHi);
end;

Hilsen
Uffe

"Niels Aage Schmidt" <nielsaa@mail.dk> wrote in message
news:3c25a835$0$94859$edfadb0f@dspool01.news.tele.dk...
> Jeg har forlist min quicksortprocedure. Er der nogen, som har en ved
hånden.
> Jeg har glemt, hvor jeg fandt min!
>
> vh og glædelig Jul
>
> Niels Aage
>
>

---

Mange tak, det var lige den!!

dejligt med en effektiv newsgroup og hjælpsomme deltagere!
hilsen
Niels Aage

"Uffe Kousgaard" <uffe@routeware.dk> skrev i en meddelelse
news:3c25af93$0$55590$edfadb0f@dspool01.news.tele.dk...
> Hej her er min:
<snip>
Hilsen
> Uffe

---

Hej Niels,

du kan vist også finde en udgave under "Threads" demoen der følger med
Delphi...

- Thomas