如何在Delphi10.4中使用BDE dbiDoRestructure添加字段？

uses
  BDE;

procedure AddFieldUsingBDE;
var
  Database: TDatabase;
  Table: TTable;
  BatchMove: TBatchMove;
  FieldDef: TFieldDef;
begin
  Database := TDatabase.Create(nil);
  Database.DatabaseName := 'YourDatabaseName';

  Table := TTable.Create(nil);
  Table.Database := Database;
  Table.TableName := 'YourTableName';

  Table.Open;

  BatchMove := TBatchMove.Create(nil);
  BatchMove.Source := Table;
  BatchMove.Destination := Table;

  FieldDef := TFieldDef.Create(Table.FieldDefs);
  FieldDef.Name := 'NewField';
  FieldDef.DataType := ftString; // 设置字段类型

  Table.Exclusive := True;
  Table.Close;

  Table.Exclusive := True;
  Table.AddIndex('NewIndex', 'NewField', [ixPrimary]); // 添加索引

  Table.Open;

  Table.Exclusive := False;
end;