Создание типа record на основе массива

[qwertyk]

Есть переменная Config:array of TConfig:

type TConfig=record
    NameField:String[128];
    TypeField:String[20];
    SizeField:LongInt;
end;

Она загружается из файла. На основе имени поля(NameField), типа поля(TypeField) и размера поля(SizeField) надо создать новый тип. Например: Config[0].NameField:='FirstName';
Config[0].TypeField:='String';
Config[0].SizeField:=60;
Config[1].NameField:='LastName';
Config[1].TypeField:='String';
Config[1].SizeField:=60;
Надо создать новый тип автоматически:

type TNew=record
    FirstName:String[60];
    LastName:String[60];
end;

Возможно ли это? Или можно как-нибудь по другому решить данный вопрос?

[Serge_Bliznykov]

1) есть очень сильно подозрение на ситуацию, описанную в Сага о X, Y и Z

Сага о X, Y и Z...
...или о том, как же важно правильно формулировать, чего мы хотим.

2) если Вам действительно нужно создавать типизированные файлы "на лету" (т.е. в runtime). Тогда никаких type xxxx = record, никаких file of xxxx.
Любой типизированный файл - это просто напросто бинарный файл, состоящий из кусочков заданной структуры. Т.к. Вы эту структуру хотите формировать динамически, то TFileStream поможет Вам это сделать - записывайте информацию нужными порциями и всё.

НО!!! (если Вам это всё реально надо), я бы рекомендовал использовать СУБД, либо формат XML, либо, на крайний случай, широко распространнёный файловый формат DBF, либо, как минимум, на самый крайнейший случай, писать структуру файла в начале самого файла.
Впрочем, Вам виднее, как Вы потом собираетесь получить доступ к записанной информации...


p.s. разумеется, в случае использования TFileStream все преимущества работы с типизированными файлами (например, в виде мгновенного перехода на любую запись по seek - теряются...)

p.p.s. надеюсь, речь не идёт о генерации PAS исходника для работы с нужной структурой?! Так тоже можно.
Только этот исходник потом компилировать прийдётся...

[veniside]

можно написать программу, которая, на основе массива из TConfig создаст исходник на паскале, в котором будет описана требуемая запись. Далее этот исходник можно будет подключить к другой программе и скомпилить готовый проект. Так сказать, статический подход.

Динамически это сделать, естественно, не получится, но можно создать класс, типа:

type
  TAnyRecord = class
  public
    property Value[name: string]: Variant read getValue write setValue; default;
  end;

Ну и далее он будет как-то там хранить свои поля в списке (фактически, TStringList можно так использовать), и обращаться с ним можно будет так:

var
  R: TAnyRecord;
begin
  R := TAnyRecord.Create();
  //
  R['FirstName'] := 'фыва';
  //
  if (R['LastName'] <> 'сепулька') then
    .....
end;

Если не нравится тип Variant, можно расширить ваш класс свойствами, типа:

  property AsString[name: string]: string read getAsString write setAsString;
  property AsInteger[name: string]: Integer read getAsInt write setAsInt;

А можно не заморачиваться, а взять класс TStringList, у него есть свойства Names[] и Values[], фактически, то, что вам надо, только в виде строк. Ну а в строке можно хранить что душе угодно.