ARRASSTRING2 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Полный текст функции)
м (Полный текст функции)
Строка 21: Строка 21:
 
  endif
 
  endif
 
   
 
   
  for i := 1 to len( aa )
+
  for i := 1 to [[len]]( aa )
 
   result := result + iif( [[Empty]]( result ), [ '], [, '] ) + aa[i] + [' ]
 
   result := result + iif( [[Empty]]( result ), [ '], [, '] ) + aa[i] + [' ]
 
  next
 
  next

Версия 12:00, 12 сентября 2016

ARRASSTRING2 - это программа из справочника R266

Преобразование массива в строку

Пример

ArrAsString2( { 1, 2 })

12-09-2016 11-30-18.png

Полный текст функции

parameters aa

local i

result := ""

if Empty( aa )
  return
endif

for i := 1 to len( aa )
  result := result + iif( Empty( result ), [ '], [, '] ) + aa[i] + [' ]
next

result := result

Смотрите также

Функции Delphi

Полезные функции