динамическое создание базы

[Bayazet]

база .db, paradox7. Мне необходимо програмно создать ее с некоторыми полями. я делаю так:

procedure CreateTable(Way : string);
  var
    fld : TField;
begin
  MF.tMainTable.CreateTable;
  MF.tMainTable.TableName := Way;
  fld := TField.Create(nil);
    fld.Name := 'ID';
    fld.DataType := ftInteger;
  MF.tMainTable.Fields.Add(fld);
    fld.Name := 'KN';
    fld.DataType := ftString;
    fld.DataSize := 20;
  MF.tMainTable.Fields.Add(fld);
    fld.Name := 'Adress';
    fld.DataType := ftString;
    fld.DataSize := 50;
  MF.tMainTable.Fields.Add(fld);
    fld.Name := 'Owner';
    fld.DataType := ftString;
    fld.DataSize := 30;
  MF.tMainTable.Fields.Add(fld);
    fld.Name := 'DocArea';
    fld.DataType := ftFloat;
    fld.DataSize := 0;
    
........
  MF.tMainTable.KeyFieldCount := 1;
  MF.tMainTable.SetKey; 
end;

ругается на fld.DataType := ftInteger;, пишет, не могу записать в readonly property..
подскажите, как правильно создавать ее?

[Stilet]

А что хелп уже отменили?
в хелпе для CreateTable есть чудеснейший пример, там все описано четко и понятно. Вот туда и смотри.

[фЁдОр]

ого-го какой код! а ведь запросом намного проще.
Bayazet, на верху в этом разделе скачайте справочник по SQL-лу и увидите насколько это проще, чем нежели вы предложили

[Bayazet]

а можно простейший примерчик по созданию базы через sql запрос?
создать таблицу с автоикриментным полем 'ID' и Alpha полем 'FIO'. а там дальше я разберусь

[Bayazet]

создаю базу след способом:

procedure InitTable;
begin
  With MF.qMainTable.SQL do
  begin
    Clear;
    Add('create table Otvody');
    Add('  (');
    Add('  ID LongInteger NOT NULL PRIMARY KEY');
    Add('  KN Alpha(20)');
    Add('  Adress Alpha(50)');
    Add('  Owner Alpha(30)');
    Add('  DocArea Number');
    Add('  TypeOfLand Alpha(30)');
    Add('  TypeOfUse Alpha(30)');
    Add('  DeltaP Number');
    Add('  #DotCount LongInteger NOT NULL');
    Add('  #Area Number NOT NULL');
    Add('  #Perimetr Number NOT NULL');
    Add('  UsingDocs Alpha(254)');
    Add('  ReqDocs Alpha(254)');
    Add('  MetDefCoord Alpha(60)');
    Add('  HCh_KN Alpha(254)');
    Add('  HCh_Area Alpha(254)');
    Add('  HT_OpisZakrTochki Alpha(254)');
    Add('  HT_OpisProhChastiGr Alpha(254)');
    Add('  HT_Primechanie Alpha(254)');
    Add('  HCh_Harakteristika Alpha(254)');
    Add('  Iskl_KN Alpha(254)');
    Add('  NNedvighimosti Alpha(254)');
    Add('  InyeSved Alpha(40)');
    Add('  KNkotorym Alpha(20)');
    Add('  KNSmeghn Alpha(254)');
    Add('  InfoSmeghn Alpha(254)');
    Add('  BinData Binary NOT NULL');
    Add('  UNIQUE (ID)');
    Add('  );');
  end;
end;

возникает вопрос: до этого я использовал базу, сделанную руками в дбдестктопе, соотв. различные алиасы в tTable, tQuery, tDBGrid и tDataSource задавал из инспектора объектов.
как и какие пути на таблицу мне необъ. указать при динамическом создании?