Скачать: CL | DM;

Перевод заголовочного файла С   Найти похожие ветки 

← →
Alex_KV   (2005-12-16 11:31) [0]

Здравствуйте!
Вот перевожу заголовочный С-файл на Delphi.
Но одну структура никак не могу расшифровать.
Буду благодарен за помощь.
struct _kv_pair {
 TKVType type;
 char *key;
 int length;  /* length of the value (in packed format) */
 union {
   char *_string_value;
   int _int_value;
   unsigned char *_binary_value;
   struct kv_list *_list_value;
   void *_p;  /* details of Unicode representation are hidden */
 } _value;
#define string_value _value._string_value
#define int_value _value._int_value
#define binary_value _value._binary_value
#define list_value _value._list_value
 struct _kv_pair *kv_next;
 struct _kv_pair *kv_prev;
};
typedef struct _kv_pair TKVPair;

---

← →
Dmitrij_K   (2005-12-16 11:42) [1]

есть такая программа c2pas
чем не устраивает?

---

← →
han_malign ©   (2005-12-16 11:55) [2]

struct _kv_pair
..................
  union {
      char *_string_value;
      int _int_value;
      unsigned char *_binary_value;
      struct kv_list *_list_value;
      void *_p;  /* details of Unicode representation are hidden */
  } _value;
  struct _kv_pair *kv_next;
  struct _kv_pair *kv_prev;
}
----------------------------------------
примерно так:
TValue: packed record
case byte of
  0: (_string_value: PChar);
  1: (_int_value: integer);
  2: (_binary_value: PByte);
  3: (_list_value: PKv_List);
  4: (_p: pointer);
end;

PKVPair = ^TKVPair;
TKVPair = packed record
..................
  _value: TValue;
  kv_next: PKVPair;
  kv_prev: PKVPair;
end;

---

← →
Alex_KV   (2005-12-16 12:48) [3]

to han_malign ©
Спасибо!
А как разобраться со внутренними #define в структуре?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c