Здравствуйте! Вопрос касательно типа данных Variant. Создал функцию: [Code] function InfoData(ID_Code: Word; var ARec: TPlayerInfo; AData: Variant; const cWrite: boolean = False): Word; begin Result := 0; case ID_Code of .. Stat_Power: V := ARec.MF.Stats.Power; //(ARec.MF.Stats.Power - Массив записей в массиве) .. end; BasicType := VarType(V) and VarTypeMask; if BasicType <> (VarType(AData) and VarTypeMask) then try If cWrite then V := ADat ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83216