VPF::Динамические структуры - Форум программистов

TheCetus

Дата 14.9.2006, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 134
Регистрация: 9.3.2006

Репутация: 2
Всего: 2

мне бы хотелось без всяких лишних заморочек реализовать следующее:

Код


unit ExportPayDBF;

interface

uses
  ExportModule;

const

  tblHDRT : TCetTableDesc = (
    TableName  : 'HDRT.DBF';
    FieldCount : 13;
    Fields     : (('BIC',     'C', '9',  ''),
                  ('DAT_V',   'D', '',   ''),
                  ('DAT_VL',  'D', '',   ''),
                  ('NLS',     'C', '20', ''),
                  ('KOD_W',   'C', '3',  ''),
                  ('I_KR',    'N', '17', '2'),
                  ('DB_KR',   'N', '17', '2'),
                  ('DB_DT',   'N', '17', '2'),
                  ('O_KR',    'N', '17', '2'),
                  ('K_PD_PR', 'N', '5',  '0'),

                  ('K_PD_RS', 'N', '5',  '0'),
                  ('NUM_V',   'C', '10', ''),
                  ('KODT_V',  'C', '8',  '')
  )); // tblHDRT

  tblPAYT : TCetTableDesc = (
    TableName  : 'PAYT.DBF';
    FieldCount : 35;
    Fields     : (('NREF',       'C', '25', ''),
                  ('NLS',        'C', '20', ''),
                  ('BIC',        'C', '9',  ''),
                  ('Z_TPL',      'C', '1',  ''),
                  ('P_KOR',      'N', '1' , '0'),
                  ('DAT_DOC',    'D', '',   ''),
                  ('DAT_BNK',    'D', '',   ''),
                  ('DAT_INBNK',  'D', '',   ''),
                  ('SUM_DOC',    'N', '16', '2'),
                  ('KODV',       'C', '3',  ''),

                  ('NUM_DOC',    'C', '10', ''),
                  ('INN_K',      'C', '12', ''),
                  ('NAME_K',     'C', '80', ''),
                  ('SCHK',       'C', '20', ''),
                  ('KSCHK',      'C', '20', ''),
                  ('BICK',       'C', '9',  ''),
                  ('INFO1',      'C', '70', ''),
                  ('INFO2',      'C', '70', ''),
                  ('INFO3',      'C', '70', ''),
                  ('INFO4',      'C', '70', ''),

                  ('NAIM_BK',    'C', '80', ''),
                  ('KODT',       'C', '8',  ''),
                  ('T_PL',       'C', '2',  ''),
                  ('GR_PAY',     'C', '2',  ''),
                  ('BUDKOD',     'C', '20', ''),
                  ('KOD_VP',     'C', '3', ''),
                  ('SWIFTK',     'C', '11', ''),
                  ('ADDR_BK',    'C', '40', ''),
                  ('ADDR_K',     'C', '80', ''),
                  ('KPP_K',      'C', '9', ''),

                  ('KPP_P',      'C', '9', ''),
                  ('INN_P',      'C', '12', ''),
                  ('OKATO',      'C', '11', ''),
                  ('NOM_RASPOR', 'C', '10', ''),
                  ('DAT_RASPOR', 'D', '', '')
  )); // tblPAYT

  tblBANT : TCetTableDesc = (
    TableName  : 'BANT.DBF';
    FieldCount : 8;
    Fields     : (('NUM_DOC', 'C', '10', ''),
                  ('DAT_V',   'D', '',   ''),
                  ('SWIFT',   'C', '11', ''),
                  ('KORS',    'C', '20', ''),
                  ('NAIM_B',  'C', '80', ''),
                  ('ADDR_B',  'C', '80', ''),
                  ('NPP',     'C', '1',  ''),
                  ('BIC',     'C', '9',  '')
  )); // tblBANT




implementation


End.

т.е. чтобы описание структуры занимало минимум места...
остается только вопрос как описать эту структуру?

Код



type

  TCetFields = ???

  TCetTableDesc = record
    TableName  : string;
    FieldCount : integer;
    Fields     : TCetFields;
  end;

Alexeis

Дата 14.9.2006, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

TheCetus, в конце концов, загнать все это добро в текстовай файл сделать разметку и грузить потом в динамический массив.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

TheCetus

Дата 14.9.2006, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 134
Регистрация: 9.3.2006

Репутация: 2
Всего: 2

спасибо всем участвующим в обсуждении, выберу какой нибудь подходящий вариант для себя

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »