Формат поля в динамически созданных таблицах

← →
Fikov (2002-01-18 22:00) [0]

Привет.
Вопрос у меня такой.
Я открываю таблицу данной процедурой,
причем не известно какого типа и скололько полей она содержит.
procedure TFormBoss.LoadClick(Sender: TObject);
begin
if opendialogbase.Execute then
begin
FormBoss.TableBase.active:ъlse;
TableBase.TableName:=opendialogbase.FileName;
TableBase.active:=true;
end;
end;
Хочу добраться до формата вывода полей на экран, но
объект TableBase.Fields[i] не содержит свойства
DisplayFormat.
Знаю, что надо использовать TDateField и TNumericField,
но не знаю как это сделать.
Та же проблема возникает при создании таблицы динамически:

with TableParameters do
begin
Active:ъlse;
if Exists then FieldDefs.Clear;
TableName:="Results\Parameters";
FieldDefs.Add("ClassNum",ftInteger,0,false);
FieldDefs.Add("ClassFun",ftFloat,0,false);
...
CreateTable;
Active:=true;
end;

Заранее благодарен. Саша.
P.S. Будет ли работать программа скомпилированная в Delphi 5
при установленом на машине BDE от Delphi более ранних версий?
И Будет ли работать программа скомпилированная в Delphi 1
при установленом на машине BDE от Delphi более поздних версий?

← →
Fikov (2002-01-19 18:05) [1]

Разобрался с установкой формата, но появились другие проблемы...

Устанавливаю формат поля таким образом.
Table1.Close;
DateTimeFields1 := TDateTimeField.Create(Self);
FloatFields1.Precision := 2;
FloatFields1.FieldName := Table1.fielddefs[i].Name;
FloatFields1.Name := Table1.Name + FloatFields[i].FieldName;
FloatFields1.DisplayFormat:="дд.мм.гг";
FloatFields1.DataSet := Table1;
Table1.FieldDefs.UpDate;
Table1.Open;

Но когда пытаюсь к Table1 подключить другую таблицу,
то получаю ошибку: Table1 field <name> not found.
Где <name> поле таблицы подключенной к Table1 первоначально.
Что мне делать?

Формат поля в динамически созданных таблицах Найти похожие ветки