Morgen und danke für die Antworten.
Ja war bisschen schlampig implementiert. Ja hab auch das onDataChange Ereignis gemeint. Sorry für die ungenauigkeit, kommt nicht mehr vor.
Zu der Logik bzw. Notwendigkeit des mehrmaligen Durchlaufen dieser Datenbank:
Ich habe verschieden Geräte bzw. Reparaturen denen ich verschiedene Ersatzteile hinzufügen möchte aber auch löschen. Desweiteren kann man innerhalb dieses Forms zu anderen Geräten bzw. Reparaturaufträgen scrollen. Ich hatte halt die Idee die Knöpfe immer dann zu zeichenen (bzw. löschen) wenn sich was ändert. Ich könnte jetzt auch alle Eventualitäten und möglichen Triggerzeitpunkte raussuchen und dort dann überprüfen ob die Knöpfe gezeichnet werden müssen oder nicht. Fände es aber beim OnDataChange besser.
Das mit dem Rekursiven aufruf leuchtet ein.
Hab jetzt eine Wartemarke erstellt und blocke den Zugriff während die Datenbank durchlaufen wird.
Danke für die schnelle und gute Hilfe.
Zur Komplettierung hier nochmal der ordentliche Code
Delphi-Quellcode:
procedure TAuftrag_form.BestellbtnCreate();
var
i:integer;
begin
busy :=true;
Ersatzteil_Dataset.First;
while not Ersatzteil_Dataset.Eof do
begin
if Ersatzteil_DatasetBestellt.Value then
begin
DBAdvGrid4.RemoveButton(7,DBAdvGrid4.Row);
end else
begin
DBAdvGrid4.AddButton(7,DBAdvGrid4.Row,50,15,'Bestellen',TCellHAlign(2),TCellVAlign(2));
end;
Ersatzteil_Dataset.Next;
end;
busy:=false;
end;