EL codigo funciona correctamente cuando lo ejecuto por primera vez y crea el campo. Pero la segunda vez que lo ejecuto me da error:
List index out of bounds en el "for i:=0 ...
Código Delphi
[-]
If NOT TablaPuntos.Active Then TablaPuntos.Open;
Exists:= False;
for i:=0 to TablaPuntos.FieldDefs.Count-1 do
Exists:= TablaPuntos.Fields[i].FieldName = 'Desglose';
If Not Exists then begin
TablaPuntos.Close;
with SQLReestructuraTabla do begin
SQL.Text:= 'ALTER TABLE PuntosMedicion ADD Desglose BOOLEAN';
ExecSQL;
Close;
end;
end;
If Not TablaPuntos.Active Then TablaPuntos.Open;