Типы данных

[psycho-coder]

Пишу, что то типа БД. Есть код:

{ Types of filed }
  pftDate	= String[10];
  pftText	= String[255];
  pftMemo = Text;
  pftNum	= Integer;
  pftMoney = Real;

  FieldType = (ftDate, ftText, ftMemo, ftNum, ftMoney);

  PFieldItem = ^TFieldItem;
  TFieldItem = record
    FName: String[30];
    FType: FieldType;
  end;

Можно ли как то сделать, что бы вместо FieldType = (ftDate, ftText, ftMemo, ftNum, ftMoney); можно было выбрать конкретный тип данных (pftText; pftMemo; pftNum)?
То есть, чтобы не проверять ft*, и не подставлять pft* вместо ft*, или все придется делать через строковые переменные и писать кучу проверок?

Выглядеть должно примерно так: (код нерабочий)

{ Types of filed }
  pftDate	= String[10];
  ftText = String[255];
  ftMemo = Text;
  ftNum = Integer;
  ftMoney = Real;

  FieldType = (ftDate, ftText, ftMemo, ftNum, ftMoney);

  PFieldItem = ^TFieldItem;
  TFieldItem = record
    FName: String[30];
    FType: FieldType;
  end;
...
begin
  ...
  PFiledItem.Name^ := 'Field1';
  PFieldItem.FType^ := ftData; {тут должен подставится тип ftDate = String[10];}
  ...
end.

[Stilet]

м.м.м малость не допонял юмора.Зачем такие страсти?
Я бы сделал класс, по подобию TField и не парился.
Ну еще разве что сделать FType:Variant

Ты подробнее задачу раскрой. Сто пудов есть решение проще.

[psycho-coder]

Это не Delphi, а Pascal
Про Variant забыл кстати(( и его нет в Паскале

Задача, при создании таблицы выбрать тип поля.

[Stilet]

при создании таблицы выбрать тип поля.

Нет ну в принципе та задумка с FieldType = (ftDate, ftText, ftMemo, ftNum, ftMoney); вполне нормальная
Просто ты когда будешь то поле обрабатывать учитывай какой тип стоит в FType.
Для каждой переменной держи запись:

 TRec=record
  _int:integer;
  _date:String[10];
 ....
 end;

А потом работай с этой записью ака с Variant

 var rec=TRec;
 if FType =[ftDate] then rec._int:=чему-то
 if FType =[ftNum] then rec._date:=чему-то

Это в стиле вариантных записей.

НУ лично я когда-то так делал

[psycho-coder]

Ммм. Я тоже подумывал над записью, но не знал как ее туда прикрутить.
Спасибо.

 if FType =[ftDate] then rec._int:=чему-то
 if FType =[ftNum] then rec._date:=чему-то

такой вариант подойдет для

FieldType=set of (...)

И это поле может содержать несколько типов))

if FType =[ftDate, ftNum] then rec._int:=чему-то

В моем случае будет так:

 var rec=TRec;
  case FType of
    ftDate: rec._int:=чему-то;
    ftNum: rec._date:=чему-то;
  end;

[Stilet]

В моем случае будет так:

Тоже логично. Только прикрути еще инициализацию rec, чтоб значение было только в одно поле, а в остальных пустым, или прям в TRec добавть еще поле FieldType дабы работая с записью, можно было узнать какого типа она сейчас.

P.S. я бы это в object все обернул...

[psycho-coder]

Я это в Object и буду заворачивать )) Но позже