pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/kolmck/code@70 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Browse Source
This commit is contained in:
dkolmck
2010-10-04 13:42:57 +00:00
parent 39cee66667
commit 8a7ad4787e
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
KOL.pas
View File

@ -10579,6 +10579,7 @@ type
//[Integer FUNCTIONS DECLARATIONS] //[Integer FUNCTIONS DECLARATIONS]
procedure Swap( var X, Y: Integer ); overload; procedure Swap( var X, Y: Integer ); overload;
procedure Swap(var X, Y: Byte); overload; procedure Swap(var X, Y: Byte); overload;
procedure Swap(var X, Y: String); overload;
{* exchanging values } {* exchanging values }
function Min( X, Y: Integer ): Integer; function Min( X, Y: Integer ): Integer;
{* minimum of two integers } {* minimum of two integers }
@ -14673,6 +14674,15 @@ begin
Y := T; Y := T;
end; end;
procedure Swap(var X, Y: String); overload;
var
T: String;
begin
T := X;
X := Y;
Y := T;
end;
//[function Min] //[function Min]
function Min( X, Y: Integer ): Integer; function Min( X, Y: Integer ): Integer;
asm asm