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.
|