Crear campo en tiempo de ejecucion

[tarco35]

Pues el codigo funciona bien, hasta que le das por segunda vez al boton, para que funcione correcto hay que cambiar el bucle FOR por un While quedando así:

Código Delphi [-]
  While (i<=Table1.FieldDefs.Count-1) AND Not Exists Do Begin
    Exists:= Table1.Fields[i].FieldName = aFieldName;
    Inc(i);
  end;

Gracias por la ayuda....

[ecfisa]

Hola Tarco35.

Me acordé de una función que simplifica mucho el código y trabaja correctamente:

Código Delphi [-]
procedure TForm1.CrearCampo(aFieldName, aType: string);
begin
  if Table1.FindField(aFieldName) = nil then
  begin
    Table1.Close;
    with Query1 do
    begin
      SQL.Text:= 'ALTER TABLE ITEMS ADD ' + aFieldName  + ' ' + aType;
      ExecSQL;
      Close;
    end;
    Table1.Open;
  end;
end;

Saludos.

[Casimiro Noteví]

Lo peligroso de estas cosas es que si hay alguien más conectado... le va a dar una risa

[tarco35]

No hay peligro para otros, ya que el sistema no trabaja en red.
Gracias