Формат поля в динамически созданных таблицах [D5, dBase, FoxPro, Paradox, ]
Fikov © (2002-01-18 22:00:00)
Привет.
Вопрос у меня такой.
Я открываю таблицу данной процедурой,
причем не известно какого типа и скололько полей она
содержит.
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:00) [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
первоначально.
Что мне делать?
Наверх 
ЧАТ |
Орешник |
|
