TestSwap

procedure TestSwap(var A: Integer; var B: Integer);

Description

Exchange A <-> B only if B < A.

See Also

TestClip