Советы по 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]



Содержание раздела