Люди.....
Подскажите (пож-ста), как создать программно поле в таблице (paradox), имя поля := переменная (integer) ...
Чего то не могу найти нужной инфы .....

Вот тебе пример создания целой таблицы

Код

{ Компонент Table1 делается неактивным } Table1.Active := False; Table1.TableName:='Dep.db'; if not Table1.Exists then begin  with Table1 do begin    { Указывается тип таблицы }    TableType := ttParadox;    { Описываются поля таблицы }    with FieldDefs do begin      Clear;      with AddFieldDef do begin        Name := 'Dep';        DataType := ftString;        Size := 20;        Required := True;      end;      with AddFieldDef do begin        Name := 'Proisv';        DataType := ftBoolean;      end;    end;    with IndexDefs do begin      Clear;      { Индекс без имени - первичный ключ таблицы }      with AddIndexDef do begin        Name := '';        Fields := 'Dep';        Options := [ixPrimary];      end;    end;    { Создание таблицы методом CreateTable }    CreateTable;    Open;    {Вставка записей}    Insert;    FieldByName('Dep').AsString := 'Бухгалтерия';    FieldByName('Proisv').AsBoolean := false;    Post;    Insert;    FieldByName('Dep').AsString := 'Цех 1';    FieldByName('Proisv').AsBoolean := true;    Post;    Insert;    FieldByName('Dep').AsString := 'Цех 2';    FieldByName('Proisv').AsBoolean := true;    Post;  end; end;

Ни чего не понимаю ......
Я значится вставляю код

"dm.T_pokaz.Close;
if not dm.T_pokaz.Exists then begin
with dm.T_pokaz do begin
with FieldDefs do begin
with AddFieldDef do begin
Name := inttostr(pr);
DataType := ftString;
Size := 20;
Required := True;
end;
dm.T_pokaz.open;

и т.п.

но ни чего не происходит
в существующей таблице имеется только одно поле ......
Как быть и чего делать ?