Swap 2 Values using a Temp Value.Unit
QESBPCSSystem
| 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.
| X | First Value to Process. | 
| Y | 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
 
Declaration
Procedure SwapXY(var X, Y: TESBLongCurrency);Implementation
 
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
 
Declaration
Procedure SwapXY(var X, Y: TESBFraction);Implementation
 
Declaration
Procedure SwapXY(var X, Y: TESBMixedFraction);Implementation
 
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
 
| HTML generated by Time2HELP | 
http://www.time2help.com