×

Welcome to TagMyCode

Please login or create account to add a snippet.
 

str_implode

0
0
 
0
Language: Delphi
Posted by: tolik8 user
Added: Jun 8, 2018 6:24 AM
Modified: Jun 8, 2018 6:25 AM
Views: 3163
Tags: no tags
  1. uses
  2.   Classes, StrUtils;
  3.  
  4. function str_implode(rz:string; const list:TStringlist): string;
  5. var i:integer;
  6. begin
  7.   result:='';
  8.   if list.Count=0 then exit;
  9.   for i := 0 to list.Count - 2 do result:=result+list[i]+rz;
  10.   result:=result+list[list.Count-1];
  11. end;

Write a comment

To post comments, please log in or register.