将数组复制到剪贴板

procedure CopyArrayToClipboard(const Arr: array of string);
var                   //数组复制到剪贴板
  S: string;
  I: Integer;
begin
  S := '';
  for I := Low(Arr) to High(Arr) do
  begin
    S := S + Arr[I] + #13#10; // 添加每个字符串，并添加换行符
  end;
  Clipboard.AsText := S;
end;