Динамическое создание таблиц

[aimk0]

Добрый день.
Пытаюсь создать таблицы в postgresql, аналогичные таблицам FoxPro.
Считываю названия таблиц из БД FoxPro

Session.GetTableNames('probb','*',false,false,ComboBox1.Items);

Создаю таблицы

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
    s:string;
begin
   for j := 0 to ComboBox1.Items.Count - 1 do
   begin
   Table1.TableName:=ComboBox1.Items[j];
   Memo1.Lines.Clear;
   memo1.Lines.Add('create table "'+Table1.TableName+'" ( ns serial,');   
   Table1.FieldDefs.Update;
   with Table1.FieldDefs do
    begin
      for i := 0 to Count - 1 do
        begin
          s:='';
          s:=Items[i].Name;
          case Items[i].DataType of
             ftString: s:=s+' character varying('+IntToStr(Items[i].Size)+')'; 
             ftInteger: s:=s+' integer';
             ftDate: s:=s+' date';
             ftBCD: s:=s+' numeric ('+IntToStr(Items[i].Precision)+', '+ IntToStr(Items[i].Size)+')';
             ftBoolean: s:=s+' boolean';
          end;
         s:=s+',';
          Memo1.Lines.Add(s);
        end;
    end;
    Memo1.Lines.Add('CONSTRAINT "'+Table1.TableName+'_key" PRIMARY KEY (ns))');
    ADOCommand1.CommandText:=Memo1.Text;
    ADOCommand1.Execute;
   end;
end;

Проблема в том, что ftBCD не срабатывает... в запросе получается что-то вроде

create table "table1" ( ns serial,
SE character varying(21),
DSE character varying(21),
RS,
PPU,
KSE,
CONSTRAINT "table1" PRIMARY KEY (ns))

для numeric полей не добавляется тип данных... Подскажите, в чем может быть проблема?

[Аватар]

Если Table1 BDE-шный, то все поля типа NUMERIC трансформируются в Smallint, Integer или Float. BCD вылазит при использовании ADO (если не ошибаюсь). А в принципе это можно глянуть в DESIGN-TIME, потянув поля в DataSet

[DiemonStar]

ftFloat не пробовали?

[astecenko]

Вариантов гораздо больше

[Аватар]

Сообщение от astecenko

Вариантов гораздо больше

И каким образом эта куча вариантов имеет отношение к преобразованию фоксовского NUMERIC?

[aimk0]

Table1 BDEшный. Посмотрел в свойствах таблицы, у полей RS, PPU datatype = ftsmallint, у KSE - Ftfloat. Добавил в прогу эти типы, убрал BCD вроде все работает.
Но откуда мне взять длину строки до и после запятой, если свойства size и precision у полей ftsmallint и ftfloat равны нулю?

[Аватар]

Можно найти какой нибудь компонент, типа TDbf и ему подобных, или по хаккерски - самому прочитать заголовок dbf и вычислить size и precision