procedure TestSwap(var A: Integer; var B: Integer);
Exchange A <-> B only if B < A.
TestClip
Copyright ©2000-2024 Alex Denisov and the Graphics32 Team - Graphics32 2.0 - Help file built on 18 Feb 2024