IDalCursorField.Precision

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    DB: IDatabaseInstance;
    sql : string;
    Com: IDalCommand;
    Cur: IDalCursor;
    Field: IDalCursorField;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    DB := MB.ItemById("BD").Open(Null) As IDatabaseInstance;
    sql := "Select * From Table_1";
    Com := DB.Connection.CreateCommand(sql);
    Cur := Com.DescribeCursor;
    For i:=0 To Cur.Fields.Count-1 Do
        Field := Cur.Fields.Item(i);
        Debug.WriteLine("--------------------------------------------");
        Debug.WriteLine("Поле : "+ Field.Name);
        Debug.WriteLine("Размер : "+ Field.Size.ToString);
        Debug.WriteLine("Точность : "+ Field.Precision.ToString);
        Debug.WriteLine("--------------------------------------------");
    End For;
    Cur.Close;
    Com.Close;
End Sub UserProc;