Array → String

Материал из DRKB

Array --> String[править | править код]

function ArrayToStr(str: TStrings; r: string): string;
var
  i: integer;
begin
  Result:='';
  if str = nil then
    Exit;
  for i := 0 to Str.Count-1 do
    Result := Result + Str.Strings[i] + r;
end;


Source: http://delphiworld.narod.ru
ID: 00797