Hier ein kleines Beispiel, wie man für alle selektierten Datensätze im DBGrid
eine bestimmte Aufgabe ausführt:
Delphi-Quellcode:
Query1.DisableControls; // evtl. weglassen, damit man bei der Arbeit zuschauen kann
try
for i := 0 to DBGrid1.SelectedRows.Count-1 do
begin
Query1.GotoBookmark(TBookMark(DBGrid1.SelectedRows[i]));
Query1.Edit;
Query1['Preis'] := Query1['Preis'] + versicherungspauschale;
Query1.Post;
Progressbar1.Stepit;
end;
finally
Query1.EnableControls;
end;