Delphi-Help

Array > String

Оцените материал
(1 Голосовать)


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;
Прочитано 8785 раз
Другие материалы в этой категории: « String > Array Использование ассоциативных массивов »

Авторизация



Счетчики