Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Вниз

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

 
_Санек_   (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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
3-100576
Lika
2003-07-08 15:09
2003.07.31
---|Ветка была без названия|---


7-100997
Intell
2003-04-25 07:15
2003.07.31
Как отследить местоположение чужого приложения?


1-100690
Ilg
2003-07-17 11:15
2003.07.31
Прокрутка ListBox


14-100938
Snake2000
2003-07-15 11:40
2003.07.31
Просмотр *.mdb


14-100908
zolotov
2003-07-14 15:25
2003.07.31
Где находятся файлы Formula One





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский