Swap function
Swap high and low bytes/words of a variable.
Declaration
function Swap(X: Word): WordDescription
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
XErrors
None.
See also
Example: ex69
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.An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.