[antosha_Z]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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;