Swap

Declaration:

Function Swap (X) : Type of X;

Description:

Swap swaps the high and low order bytes of X if X is of type Word or Integer, or swaps the high and low order words of X if X is of type Longint or Cardinal.

The return type is the type of X

Errors:

None.

See also:

Lo, Hi

Example

Program Example69;

{ Program to demonstrate the Swap function. }
Var W : Word;
    L : Longint;
    
begin
  W:=$1234;
  W:=Swap(W);
  if W<>$3412 then 
    writeln ('Error when swapping word !');
  L:=$12345678;
  L:=Swap(L);
  if L<>$56781234 then 
    writeln ('Error when swapping Longint !');
end.