[antosha_Z]

делфи не распознает почему то стандартные типы такие как ftInteger,ftString и другие. В чем тут проблема. Код прилагаеться.

Код:

procedure CreateFields();
begin

        with DM.TMain do
        begin

          TableName := 'Main';
          if not DM.TMain.Exists then begin

     with FieldDefs do begin
      Clear;
      with AddFieldDef do begin
        Name := 'Field1';
        DataType := ftinteger;
        Required := True;
      end;
      with AddFieldDef do begin

        Name := 'Field2';
        DataType := ftString;
        Size := 30;
      end;
    end;

    CreateTable;
  end;

        end;
end;