Передача массива как параметра в функцию

← →
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;

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