Share Tips, Code Samples, etc. with the Visual Prolog community.
Chan Bok
Active Member
Posts: 26
Joined: 13 Sep 2000 23:01

A heavy-duty sort

Unread post by Chan Bok »

This is the code snippet that I displayed on the screen in Faro.
It is a trick to use Microsoft's sort which seems to perform well
even under extreme conditions.

Code: Select all

  listSort(In,Out):-!,     Ctl_Flags = [wsf_invisible,wsf_Sort],     SortWin = vpi::winCreateControl(wc_LBox,rct(0,0,100,100),"",               vpi::getTaskWindow(),Ctl_Flags,999),     vpi::lboxAdd(SortWin,In),     Out = vpi::lboxGetAll(SortWin),     vpi::winDestroy(SortWin).

Chan Bok
Axon Research
Post Reply