Fórum Criar e Excluir campo em tabela Paradox #236448

procedure TForm2.Button1Click(Sender: TObject);
var  Q: TQuery;
begin
   Q := TQuery.Create(Application);
   try
   Q.DatabaseName := ´Banco´;
   with Q.SQL do begin
   Add(´Alter Table Tabela add cli_Nome Char(30)´);
   end;
   Q.ExecSQL;
   finally
   Q.Free;
   end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var  Q: TQuery;
begin
   Q := TQuery.Create(Application);
   try
   Q.DatabaseName := ´Banco´;
   with Q.SQL do begin
   Add(´Alter Table Tabela drop cli_Nome´);
   end;
   Q.ExecSQL;
   finally
   Q.Free;
   end;
end;