david
6d714950ba
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@241 0c75b7a4-871f-7646-8a2f-f78d34cc349f
34 lines
841 B
ObjectPascal
34 lines
841 B
ObjectPascal
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.
|