Главная страница
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
14-100943
Vlad Oshin
2003-07-14 14:00
2003.07.31
Очкарик. Рассказ.


1-100680
ruslan_as
2003-07-18 09:55
2003.07.31
После обработки обшибки try -.except у меня не работает Combobox


14-100953
passm
2003-07-15 13:57
2003.07.31
Антибликовые очки


14-100955
stone
2003-07-15 15:13
2003.07.31
Как это может быть правдой?


7-101010
L_Dmitrty
2003-05-20 11:09
2003.07.31
Записи