[next] [prev] [prev-tail] [tail] [up]

#### 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 (529), Hi (510)

Listing: refex/ex69.pp

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.

[next] [prev] [prev-tail] [front] [up]