Redim и массивы с неизвестным именем

Предыдущая тема Следующая тема Перейти вниз

Redim и массивы с неизвестным именем

Сообщение  dorten в Вс Дек 14, 2008 11:34 pm

Всем привет!

Полный новичек в этом, помогите. Пытаюсь сделать DLL.

Код:

#include once "windows.bi"
#include once "win/ole2.bi"

extern "windows-ms"
   function FBArray (byval FBName as String) as String export
      dim Idex1 as Integer
      ReDim FBName(1 to 32001) As String
      For Idex1 = 1 To 32001
         FBName(Idex1) = "мы заполним весь массив." & Idex1
      Next Idex1
     FBArray = FBName(956)
   end Function
end Extern

компилирую: fbc -s gui -dll -export "fbDLL.bas"
компилдятор выдает: fbDLL.bas(9) error 4: Duplicated definition, FBName in 'ReDim FBName(1 to 32001) As String'

ИМХО, ругается на имя массива, т. е. нельзя так передавать через функцию задать имя....., а как можно?

Заранее благодарю, заодно подскажите че еще не так замутил.

dorten

Сообщения : 1
Дата регистрации : 2008-12-14

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Redim и массивы с неизвестным именем

Сообщение  tux в Пн Дек 15, 2008 11:43 am

#include once "windows.bi"
#include once "win/ole2.bi"

extern "windows-ms"
function FBArray (byval FBName() as String) as String export
dim Idex1 as Integer
ReDim FBName(1 to 32001) As String
For Idex1 = 1 To 32001
FBName(Idex1) = "мы заполним весь массив." & Idex1
Next Idex1
FBArray = FBName(956)
end Function
end Extern

и передавать в функцию тоже пустой массив надо (те с пустыми скобками)
avatar
tux

Сообщения : 365
Дата регистрации : 2008-04-06
Возраст : 28
Откуда : Сибирь

Посмотреть профиль http://tux.nsk.ru/

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения