VPF::динамический массив в структуре

TheCetus

Дата 7.6.2006, 10:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

сейчас в проекте реализован следующий тип для хранения описания структуры таблиц:

Код



type

  TMyFields = array [0..maxFieldCount-1, 0..3] of string;

  TMyTableDesc = record
    TableName  : string;                  // имя таблицы
    FieldCount : integer;                 // количество полей
    Fields     : TMyFields;              // двумерный массив в котором храняться описания полей
  end;

const

  tblR_SGL2 : TCetTableDesc = (
    TableName  : 'R_SGL2.DBF';
    FieldCount : 16;
    Fields     : (
      ('KODT',     'C', '8',   ''),
      ('NUM_REE',  'C', '10',  ''),
      ('DAT_REE',  'D', '',    ''),
      ('INN_KNP',  'C', '12',  ''),
      ('G011',     'C', '2',   ''),
      ('G012',     'C', '2',   ''),
      ('G0131',    'C', '3',   ''),
// ...
      ('ND',       'C', '23',  ''),
      ('ASD',       'C', '23',  ''),
      ('', '', '', ''),
      ('', '', '', ''),
      ('', '', '', '')
  ));

т.е. конец массива забивается пустыми элементами.
Как сделать так, чтобы массив был динамический и не приходилось бы хвост забивать пустыми элементами?

comtat

Дата 7.6.2006, 10:37 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

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

Динамический массив делается так

Код

TMyFields = array of string;

Длина определяется так

Код

SetLength(TMyFields, значение)

Он же по умолчанию значения записывает ??

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

Рожденный в СССР !!!
ExtJS - мой фреймворк

skyboy

Дата 7.6.2006, 10:37 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

TheCetus, объяви, как переменную.

Rennigth

Дата 7.6.2006, 10:42 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

хм...

Код


  TMyFields = array of array of string;

  TMyTableDesc = record
    TableName  : string;                  // имя таблицы
    FieldCount : integer;                 // количество полей
    Fields     : TMyFields;              // двумерный массив в котором храняться описания полей
  end;

но имхо вмемто двумерного массива TMyFields лутше бы сделать массив record-ов или TList с объектами.

Добавлено @ 10:42
удобнее

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

(* Honesta mors turpi vita potior *)

TheCetus

Дата 7.6.2006, 10:45 (ссылка)

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

Загрузка ...

Шустрый

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

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

т.е. заполнять через процедуру?
константами никак не обойтись?

P.S. как можно заполнить без использования индексов?
(не писать для каждого поля Fields[1] := ('fld','c','5',''))

Добавлено @ 10:51
в TList можно вставлять записи?

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