Советы по Delphi
Функция возвращает строку, содержащую элементы массива Arr, разделенные строкой delim
Своим опытом делится Slava Kostin:
|
{Функция возвращает строку, содержащую элементы массива Arr, разделенные строкой delim} function CommaText(Arr: array of String; delim: String): String; var i: Integer; begin Result := ''; for i := 0 to Length(Arr) - 1 do Result := Result + Arr[i] + delim; Delete(Result, Length(Result) - Length(delim) + 1, Length(delim)); end; |
[001896]
