Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > динамический массив в структуре

Автор: TheCetus 7.6.2006, 10:32

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

Код



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

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

Код

TMyFields = array of string;

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

Код

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

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

Автор: skyboy 7.6.2006, 10:37

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

Автор: Rennigth 7.6.2006, 10:42

хм...

Код


  TMyFields = array of array of string;

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

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

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

Автор: TheCetus 7.6.2006, 10:45

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

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

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