Designfrage: initializing constant arrays

[himitsu]

Delphi-Quellcode:

type
  TMyColumn = record
    ColumnName: string;
    FieldType:  TFieldType;
  end;

const
  My_Columns: array[0..2] of TMyColumn = (
    {$I Data.inc}
  );



const
  My_ColumnsEx: array[0..3] of TMyColumn = (
    {$I Data.inc},
    (ColumnName: 'bla3'; FieldType: ftInteger)
  );

Data.inc

Delphi-Quellcode:

    (ColumnName: 'bla0'; FieldType: ftInteger),
    (ColumnName: 'bla1'; FieldType: ftInteger),
    (ColumnName: 'bla2'; FieldType: ftInteger)