1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TAccessDbCreator.CreateColumn(const _Catalog: TAdoxCatalog;
  const _Table: TAdoxTable; const _Column: IdzDbColumnDescription);
var
  ComColumn: TAdoxColumn;
begin
  ComColumn := CoColumn.Create;
  ComColumn.ParentCatalog := _Catalog;
  ComColumn.Name := Format('%s%s', [FPrefix, _Column.Name]);
  ComColumn.Type_ := DATA_TYPE_MAPPING[_Column.DataType];
  if _Column.DataType in [dtMemo, dtText] then
    ComColumn.DefinedSize := _Column.Size;
  ComColumn.Properties['Nullable'].Value := (_Column.AllowNull = naNull);
  ComColumn.Properties['Description'].Value := _Column.Comment;
  { TODO -otwm -cbug : This apparently doesn't work, at least not for text and integer fields. }
  if not VarIsNull(_Column.DefaultValue) then
    ComColumn.Properties['Default'].Value := _Column.DefaultValue;
  ComColumn.Properties['AutoIncrement'].Value := _Column.AutoInc;
  // this is a very odd property, I think it makes sense to allow it only if null is also allowed
  ComColumn.Properties['Jet OLEDB:Allow Zero Length'].Value := (_Column.AllowNull = naNull);

  _Table.Columns.Append(ComColumn, Unassigned, Unassigned);
end;