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