| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача массива как параметра в функцию [D2005, XP]

niil ©   (2007-02-10 22:10:00) 

Есть вот такая структура:
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:00) [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;


---

Наверх