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