From 8a7ad4787e25befc23b53255fa72d46ea2fb2a20 Mon Sep 17 00:00:00 2001
From: dkolmck <dkolmck@91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07>
Date: Mon, 4 Oct 2010 13:42:57 +0000
Subject: [PATCH] git-svn-id: https://svn.code.sf.net/p/kolmck/code@70
 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

---
 KOL.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/KOL.pas b/KOL.pas
index 9c5e103..a0f7c3a 100644
--- a/KOL.pas
+++ b/KOL.pas
@@ -10579,6 +10579,7 @@ type
 //[Integer FUNCTIONS DECLARATIONS]
    procedure Swap( var X, Y: Integer ); overload;
    procedure Swap(var X, Y: Byte); overload;
+   procedure Swap(var X, Y: String); overload;
    {* exchanging values }
    function Min( X, Y: Integer ): Integer;
    {* minimum of two integers }
@@ -14673,6 +14674,15 @@ begin
   Y := T;
 end;
 
+procedure Swap(var X, Y: String); overload;
+var
+  T: String;
+begin
+  T := X;
+  X := Y;
+  Y := T;
+end;
+
 //[function Min]
 function Min( X, Y: Integer ): Integer;
 asm