From 6d714950bad3aa96ec4e7d21a77aaca31a91917f Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 5 Feb 2008 10:16:15 +0000
Subject: [PATCH] uStringsUtils: nueva unidad con utilidades para cadenas de
 texto.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@241 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Base/Utiles/uStringsUtils.pas | 33 ++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 Source/Base/Utiles/uStringsUtils.pas

diff --git a/Source/Base/Utiles/uStringsUtils.pas b/Source/Base/Utiles/uStringsUtils.pas
new file mode 100644
index 00000000..5c43b4da
--- /dev/null
+++ b/Source/Base/Utiles/uStringsUtils.pas
@@ -0,0 +1,33 @@
+unit uStringsUtils;
+
+interface
+
+uses
+  Classes;
+
+procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
+function StringsToString(Source:TStrings; Delimiter:char):string;
+
+
+implementation
+
+{ Convierte una cadena con items separados con un delimitador en un TString }
+procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
+var i: integer;
+begin
+  for i:=1 to length(Source) do
+    if Source[ i ] = Delimiter then Source[ i ]:=#10;
+  Target.Text:=Source;
+end;
+
+{ Convierte un TString en una cadena de items separados con un delimitador }
+function StringsToString(Source:TStrings; Delimiter:char):string;
+var i: integer;
+begin
+  Result:='';
+  for i:=0 to Source.Count-1 do
+    Result:=Result + Delimiter + Source[ i ];
+  if Result<>'' then Delete(Result, 1, 1)
+end;
+
+end.