Проблема передачи записиDelphi , Синтаксис , Записи и МножестваПроблема передачи записиМожет это не то, что вы ищете, но идея такая: Определите базовый класс с именем, скажем, allrecs:
Затем создаем классы для каждой записи:
Затем для каждой функции класса определите возвращаемый результат:
Затем вы можете определить
затем вы можете вызвать myFunc с любым классом, производным от tAllrecs, например:
(getVal предпочтительно должна быть процедурой (а не функцией) с тремя var-параметрами, возвращающими имя, тип и значение.) Все это работает, т.к. данный пример я взял из моего рабочего проекта. [Sid Gudes, cougar@roadrunner.com] Если вы хотите за один раз передавать целую запись, установите на входе ваших функций/процедур тип 'array of const' (убедитесь в правильном приведенни типов). Это идентично 'array of TVarRec'. Для получения дополнительной информации о системных константах, определяемых для TVarRec, смотри электронную справку по Delphi. Проблема передачи записи решается при использовании базового класса и override функций getVal в производных классах для отображения различных полей записи. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Записи и Множества ::
|
|||||||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |