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;