Главная страница
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.015 c
3-100601
tamara
2003-07-08 15:22
2003.07.31
Locate


14-100968
Igor__
2003-07-14 19:30
2003.07.31
Зачем нужна Стеганография


3-100628
tamara
2003-07-09 18:02
2003.07.31
Trigger


1-100721
Дома
2003-07-18 16:54
2003.07.31
GetCaretPos из user32.dll


3-100597
urich
2003-07-09 10:30
2003.07.31
Перенос таблицы из одной БД в другую