Clase Que Guarde Datos En Base De Datos

[Northern]

Puedes poner alggo como:

Código Delphi [-]
procedure TForm1.PonerFields(const Values: array of const);
var
  I: Integer;
begin
  for I := 1 to High(Values) do ADOTable1.Fields[i].AssignValue(Values[i]);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ADOTable1.Append;
  PonerFields(['uno', 'dos', 'tres', 'cuatro']);
  ADOTable1.Post;
end;

for I := 1 to High(Values) lo empiezo en 1 y no en 0 por si está puesto como autoincremental.


Saludos