Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.31;
Скачать: CL | DM;

Вниз

Как передать в параметр процедуры массив?   Найти похожие ветки 

 
_Санек_   (2003-07-16 10:12) [0]

Есть такие компоненты - Async Professional. И есть метод ConcatFaxes у одного из компонетов этого пакета - TApdFaxJobHandler. Его описание таково:


procedure ConcatFaxes (DestFaxFile: ShortString; FaxFiles: Array of ShortString);


Не получается передать в этот метод массив FaxFiles.

Пытаюсь делать и так:

var ff : array of ShortString;
...
ConcatFaxes (DestFaxFile, ff); // Не проходит, говорит несоответствие типов Array и Dinamic Array


И так:


var ff : array [1..100] of ShortString;
...
ConcatFaxes (DestFaxFile, ff); // Incompatible types


Ничего не получается...

Единственное, что получается:

var ff : array [1..100] of ShortString;
...
ConcatFaxes (DestFaxFile, [file1.apf, file2.apf]);


Но так меня не удовлетворяет, я имена файлов получаю в процессе выполнения программы...

В исходниках компонентов лазить пока не хочется, там переделать это на какой-нить TStringList. Все таки, наверно же авторы как-то задумывали, что можно передать динамически туда имена файлов.

Подскажите, как?

Заранее, спасибо!


 
Song ©   (2003-07-16 10:21) [1]

Через Type пробовал?


 
_Санек_   (2003-07-16 10:43) [2]


type
TFL = Array of ShortString;
.........
var
FL : TFL;
.........
ConcatFaxes("ready.apf", FL); // [Error] threadTransmission.pas(180): Incompatible types: "Array" and "TFL"


 
Palladin ©   (2003-07-16 11:05) [3]

var ff : array of ShortString;
...
ConcatFaxes (DestFaxFile, ff); // Не проходит, говорит несоответствие типов Array и Dinamic Array

у меня проходит...
правда у меня D6


 
__Санек__   (2003-07-16 11:12) [4]

Ладно, значит будем это считать ошибкой D5.

Я переписал этот метод под использование TStringList, и все заработало...



Страницы: 1 вся ветка

Текущий архив: 2003.07.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
3-100626
viktor
2003-07-07 13:35
2003.07.31
cat := CreateOleObject( ADOX.Catalog )


1-100765
Damir
2003-07-16 16:31
2003.07.31
Control вне экрана...


3-100609
captive
2003-07-09 17:44
2003.07.31
Обработка событий InterBase


1-100790
sdram
2003-07-17 09:07
2003.07.31
Как вычислить выражене записанное в поле базы?


4-101015
VP
2003-05-26 11:29
2003.07.31
ShellExecute ???????????