SwapXY Routines
Swap 2 Values using a Temp Value.

Unit
QESBPCSSystem

Overloaded Variants
Procedure SwapXY(var X, Y: Boolean);
Procedure SwapXY(var X, Y: Char);
Procedure SwapXY(var X, Y: Byte);
Procedure SwapXY(var X, Y: ShortInt);
Procedure SwapXY(var X, Y: Word);
Procedure SwapXY(var X, Y: SmallInt);
Procedure SwapXY(var X, Y: LongWord);
Procedure SwapXY(var X, Y: LongInt);
Procedure SwapXY(var X, Y: Int64);
Procedure SwapXY(var X, Y: Extended);
Procedure SwapXY(var X, Y: Double);
Procedure SwapXY(var X, Y: Single);
Procedure SwapXY(var X, Y: TESBCurrency);
Procedure SwapXY(var X, Y: TESBLongCurrency);
Procedure SwapXY(var X, Y: Currency);
Procedure SwapXY(var X, Y: TESBComplex);
Procedure SwapXY(var X, Y: TESBFraction);
Procedure SwapXY(var X, Y: TESBMixedFraction);
Procedure SwapXY(var X, Y: TDateTime);
Procedure SwapXY(var X, Y: TPoint);
Procedure SwapXY(var X, Y: TRect);
Procedure SwapXY(var X, Y: TESBImperial);

Declaration
Procedure SwapXY(var X, Y: Boolean);

Description
This Pascal code is faster than our previous BASM code WHEN Delphi 4 (and above) has Optimization Turned On.

Parameters
First Value to Process.
Second Value to Process.

Category
Extra String Handling Routines
Arithmetic Routines for Integers
Arithmetic Routines for Floats
Memory Operations
Complex Number Arithmetic Routines
Fraction Arithmetic Routines
Financial Arithmetic Routines
Date/Time Arithmetic Routines
Arithmetic Routines for Mixed Imperials

Implementation

procedure SwapXY (var X, Y: Boolean);
var
     Temp: Boolean;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: Char);

Implementation

procedure SwapXY (var X, Y: Char);
var
     Temp: Char;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: Byte);

Implementation

procedure SwapXY (var X, Y: Byte);
var
     Temp: Byte;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: ShortInt);

Implementation

procedure SwapXY (var X, Y: ShortInt);
var
     Temp: ShortInt;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: Word);

Implementation

procedure SwapXY (var X, Y: Word);
var
     Temp: Word;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: SmallInt);

Implementation

procedure SwapXY (var X, Y: SmallInt);
var
     Temp: SmallInt;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: LongWord);

Implementation

procedure SwapXY (var X, Y: LongWord);
var
     Temp: LongWord;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: LongInt);

Implementation

procedure SwapXY (var X, Y: LongInt);
var
     Temp: LongInt;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: Int64);

Implementation

procedure SwapXY (var X, Y: Int64);
var
     Temp: Int64;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: Extended);

Implementation

procedure SwapXY (var X, Y: Extended);
var
     Temp: Extended;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: Double);

Implementation

procedure SwapXY (var X, Y: Double);
var
     Temp: Double;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: Single);

Implementation

procedure SwapXY (var X, Y: Single);
var
     Temp: Single;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: TESBCurrency);

Implementation

procedure SwapXY (var X, Y: TESBCurrency);
var
     Temp: TESBCurrency;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: TESBLongCurrency);

Implementation

procedure SwapXY (var X, Y: TESBLongCurrency);
var
     Temp: TESBLongCurrency;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: Currency);

Implementation

procedure SwapXY (var X, Y: Currency);
var
     Temp: Currency;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: TESBComplex);

Implementation

procedure SwapXY (var X, Y: TESBComplex);
var
     Temp: TESBComplex;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: TESBFraction);

Implementation

procedure SwapXY (var X, Y: TESBFraction);
var
     Temp: TESBFraction;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: TESBMixedFraction);

Implementation

procedure SwapXY (var X, Y: TESBMixedFraction);
var
     Temp: TESBMixedFraction;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: TDateTime);

Implementation

procedure SwapXY (var X, Y: TDateTime);
var
     Temp: TDateTime;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: TPoint);

Implementation

procedure SwapXY (var X, Y: TPoint);
var
     Temp: TPoint;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: TRect);

Implementation

procedure SwapXY (var X, Y: TRect);
var
     Temp: TRect;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;

Declaration
Procedure SwapXY(var X, Y: TESBImperial);

Implementation

procedure SwapXY (var X, Y: TESBImperial);
var
     Temp: TESBImperial;
begin
     Temp := X;
     X := Y;
     Y := Temp;
End;


HTML generated by Time2HELP
http://www.time2help.com