Rellenar un campo con un recorrido secuencial de la tabla

[Casimiro Noteví]

Quita el first.

Código Delphi [-]
procedure TF_Material.Button7Click(Sender: TObject); 
  VAR i,a:INTEGER; 
begin
  F_ModulDades.Material.Last;         
  F_ModulDades.Material.First;         
  F_ModulDades.Material.RecordCount;         
  a:=F_ModulDades.Material.RecordCount;        
  Label58.Caption:= inttostr(a);         
  for i:= 1 to a do         
  begin           
    // F_ModulDades.Material.First;           
    F_ModulDades.Material.Edit;           
    F_ModulDades.MaterialAUTOI.Value:= i;           
    F_ModulDades.Material.Post;           
    F_ModulDades.Material.Next;        
  end; 
end;