procedure TestSwap(var A: Integer; var B: Integer);
Exchange A <-> B only if B < A.
TestClip
Copyright ©2000-2007 Alex Denisov and Contributors - Graphics32 v1.8.3 - Build on 4-March-2007