Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.969 c