NAMESPACE MyModule
DIM F(10) AS STRING
'REDIM F(10) AS STRING   '  Заместо DIM выдаст ошибку

  SUB MyProc ()
     'REDIM PRESERVE F(20) AS STRING   '  Если сделать по массиву DIM - то массив сдохнет
     F(15) = "Bla bla bla"
  END SUB

END NAMESPACE

MyModule.MyProc
PRINT MyModule.F(15), UBOUND(MyModule.F)
SLEEP

Extern "c++" Lib "mylib"
    Namespace mylib Alias "mylib"
        Declare Function test() As Integer
    End Namespace
End Extern

'$LANG: "FB"

NAMESPACE Example

TYPE StringDIM
    LoIndex AS INTEGER
    HiIndex AS INTEGER
    PtrToStr AS STRING PTR
END TYPE

'  Строковый массив для долговременного использования
DIM MySpis AS StringDIM

  '  Аналог функции резервирования массива
  SUB MakeDIM (BYREF NameDIM AS StringDIM, Lo AS INTEGER, Hi AS INTEGER)
  DIM LengthDIM AS INTEGER

  '  Если массив ещё не выделен - выделяем.
  IF NameDIM.PtrToStr = FALSE THEN
    '  Проверяем верность границ
    IF Lo < Hi THEN
      NameDIM.LoIndex = Lo:  NameDIM.HiIndex = Hi
    ELSE
      NameDIM.LoIndex = Hi:  NameDIM.HiIndex = Lo
    END IF
    '  Считаем длину массива
    LengthDIM = (NameDIM.HiIndex - NameDIM.LoIndex) + 1
    NameDIM.PtrToStr = NEW STRING
  [LengthDIM]END IF

  END SUB

  '  Пишем значение в массив
  SUB SetVal (BYREF NameDIM AS StringDIM, Index AS INTEGER, BYREF Value AS STRING)
  DIM NIndex AS INTEGER = Index

    IF Index >= NameDIM.LoIndex AND Index <= NameDIM.HiIndex THEN
      NIndex -= NameDIM.LoIndex
      NameDIM.PtrToStr [NIndex]= Value
    END IF

  END SUB

  '  Читаем значение из массива
  FUNCTION GetVal (BYREF NameDIM AS StringDIM, Index AS INTEGER) AS STRING
  DIM NIndex AS INTEGER = Index

    IF Index >= NameDIM.LoIndex AND Index <= NameDIM.HiIndex THEN
      NIndex -= NameDIM.LoIndex
      COLOR 12: PRINT NIndex; ", "; : COLOR 7                  '   >>> DEBUG <<<  !!!
      RETURN NameDIM.PtrToStr
  [NIndex]END IF
   
  END FUNCTION

  '  Освобождаем память
  SUB KillDIM (BYREF NameDIM AS StringDIM)
    DELETE[] NameDIM.PtrToStr
  END SUB

  '  Функции для тестирования работы самопального массива
  '  Присвоить тестовые значения

  SUB SetValues (BYREF NameDIM AS StringDIM)
  DIM i AS INTEGER, i2 AS INTEGER
  DIM RandSlov AS STRING
     FOR i = NameDIM.LoIndex TO NameDIM.HiIndex

           RandSlov = ""
           FOR i2 = 1 TO (i - NameDIM.LoIndex) + 1
              RandSlov = RandSlov + CHR(65 + (i - NameDIM.LoIndex))
           NEXT

           SetVal NameDIM, i, RandSlov

     NEXT
  END SUB

  '  Распечатать массив
  SUB PrintSpis (BYREF NameDIM AS StringDIM)
  DIM i AS INTEGER
  
     FOR i = NameDIM.LoIndex TO NameDIM.HiIndex

           WRITE i, GetVal(NameDIM, i)

     NEXT
  END SUB

  SUB Test ()
     'DIM MySpis AS StringDIM   '  Можно и внутри процедуры это использовать
     MakeDIM (MySpis, -5, 3)
     SetValues MySpis
     PrintSpis MySpis
     KillDIM MySpis
  END SUB

END NAMESPACE

  Example.Test      '   Тестируем

SLEEP

Namespace MyModule

Type t
   s(Any) As String ' динамический массив
End Type

Dim mas As t ' динамический массив внутри Типа

Sub MyProc ()
   ReDim Preserve mas.s(20) ' меняем размер массива
   mas.s(15) = "Bla bla bla"
End Sub

End Namespace

MyModule.MyProc
? MyModule.mas.s(15), UBound(MyModule.mas.s)
Sleep

NAMESPACE MyModule
DIM s() AS STRING
SUB Init (Num AS UINTEGER)
DIM i AS UINTEGER
REDIM s(Num)
  FOR i = 0 TO Num
  s(i) = STRING(i + 1, "*")
  NEXT
END SUB
END NAMESPACE

DIM i AS UINTEGER
MyModule.Init 5
FOR i = 0 TO 5
  WRITE MyModule.s(i)
NEXT
SLEEP