Текущий архив: 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.013 c