连接字符串列表

• 函数类型：　自定义函数

• 函数说明：

连接字符串列表

• 代码如下：

 function Join(mylist: TStrings; seperatorStr: string): string;
var
  i: Integer;
begin
  Result := string.Empty;
  for i := 0 to mylist.Count - 1 do
  begin
    Result := Result + mylist[i];
    if i < mylist.Count - 1 then
      Result := Result + ' ' + seperatorStr + ' ';
  end;
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》