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 Wert Daten.Nr ist als Integer deklariert.
Jeder Eintrag erhält hier dieselbe Nummer.
Das soll aber grad nicht der Fall sein.