Problem mit Autoinkrement

[Jens Schumann]

Zitat von Chris P:

Kann mir jemand sagen wo hier der Fehler liegt?

Delphi-Quellcode:

procedure TForm1.UpdateIndex();
var
   Index: Integer;
begin
   Table1.First;
   for Index := 0 to Table1.RecordCount-1 do
   begin
       Query1,SQL.Add('UPDATE Daten SET Daten.Nr = ' + IntToStr(Index)); // Daten = Name der Datebank 
       Table1.Next;
   end;
end;

Der Ansatz ist schon verkehrt. In Deinem Source wird die Schleife durchlaufen aber eigentlich
passiert nix.
Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.UpdateIndex();
var
   Index: Integer;
begin
   Index:=0;
   Table1.First;
   Table1.Edit;
   While Not Table1.EOF do
     begin
     Table1.FieldByName('Nr').AsInteger:=Index;
     Table1.Next;
     Inc(Index);
     end;
   Table1.Post;
   Table1.Browse;
end;