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

Вниз

Передача массива как параметра в функцию   Найти похожие ветки 

 
niil   (2007-02-10 22:10) [0]

Есть вот такая структура:
TCore = record
   ImgWin: array of record
                      Source, TabName, ImgName: string;
                    end;

   MBr: array of record
                   BrName, TabName, WBAdr, BrInd: string;
                 end;

Есть некая функция куда необходимо передавать массив либо Core.ImgWin либо Core.Mbr

function F_AddCore(Mas: Variant; Oper: TCoreOperate; Ind:integer): integer;
Обращение к ней: F_AddCore(Core.ImgWin, coAdd, 0);

При вызове вылетает ошибка приведения типа к Variant. Как быть?


 
Johnmen ©   (2007-02-10 22:18) [1]

type
 TMySuperRecord1 = array of record
   Source, TabName, ImgName: string;
   end;
 TMySuperRecord2 = array of record
   BrName, TabName, WBAdr, BrInd: string;
   end;

function F_AddCore(Mas: TMySuperRecord1; ...) : integer; overload;
function F_AddCore(Mas: TMySuperRecord2; ...) : integer; overload;



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

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

Наверх




Память: 0.46 MB
Время: 0.03 c
2-1171036455
Дрон
2007-02-09 18:54
2007.03.04
Процессор и температура


1-1168618101
StriderMan
2007-01-12 19:08
2007.03.04
Переслать события мыши внизулежашему наследнику TControl


15-1170930935
StriderMan
2007-02-08 13:35
2007.03.04
Замедление вращения Земли


1-1168450330
i-am-vladko
2007-01-10 20:32
2007.03.04
загрузить форму не из [unit_name].dfm


15-1170936724
allucard
2007-02-08 15:12
2007.03.04
Зачем делать то, что никому не нужно!(модератору)?