Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var nCont:Integer; begin for nCont:=1 to 20 do begin Table1.Insert; Table1Nombre.Value:='Pepe'; Table1EdadValue :=20; Table1Fecha.Value :=Date; Table1Fijo.Value :=True; //etc.. Table1.Post; end; end;
procedure TForm1.Button1Click(Sender: TObject); var nCont:Integer; begin for nCont:=1 to 20 do begin Table1.Insert; Table1Nombre.Value:='Pepe'; Table1EdadValue :=20; Table1Fecha.Value :=Date; Table1Fijo.Value :=True; //etc.. Table1.Post; end; end;