Crear y verificar campos en Paradox

[marcoszorrilla]

Un ejemplo de como saber si un campo existe o no:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
bExiste:Boolean;
begin
bExiste:=False;
 For n:=0 to Query1.FieldCount -1 do
 begin
   If (query1.Fields[n].DisplayName) = 'Fecha' then
   bExiste:=True;
 end;

 if bExiste = True then
 ShowMessage('el campo existe no crearlo.');

end;

Un Saludo.