Архив метки: key

Key — File

ЧС> Как получить указатель на ключ имея указатель на файл — известно. Как получить указатель на файл имея указатель на VIEW — известно. А как получить указатель на файл имея указатель на ключ?

У тебя же, на Клариоше, лежит моя либа DynaView, где среди других сервисных функций есть и такая! Причем все сервисные функции в этой либо не требуют создания самого View. Достаточно просто объявить экземпляр класса DynaViewClassType в секции глобальных или локальных данных.
Ну, а если влом, то — держи:

  MAP
    KeyOwnerFile(KEY CheckKey),*FILE
  END

KeyOwnerFile PROCEDURE(KEY CheckKey)

KHdr                 GROUP
Name                   &STRING
Label                  &STRING
Pipe                   ULONG
Attr                   UNSIGNED
FieldCount             BYTE
Fields                 ULONG
File                   &FILE
                     END
KGrp                 GROUP
KRef                   &KEY
                     END
KPtr                 ULONG,OVER(KGrp)

  Code
  if CheckKey &= Null then Return Null.
  KGrp.KRef &= CheckKey
  Peek(KPtr,KHdr)
  Return KHdr.File