Du kannst ja für die From eine eigene Prozedur schreiben wie "Bilder sammeln" o.ä. und das dann mehrmals ausführen.
Delphi-Quellcode:
procedure BilderSammeln;
begin
// Deine ButtonClick-Prozedur
end;
procedure Button1Click(Sender : Tobject);
begin
BilderSammeln;
end;
Nun könntest du das über mehrere Wege berechnen:
1. Du erstellst ein globales, privates array of Cardinal (o.ä.) und lässt dass dann Füllen und später berechnen
2. Du nimmst nur eine globale Variable, und hast eine bestimmte Anzahl von Durchläufen (z.B.) 10 und schreibst alle Werte rein, und berechnest dass dann...
3. Du nimmst die 1. oder 2. Variante, aber dann lokal. Dann muss deine BilderSammeln ein Rückgabewert bekommen
Ich hätte es so gemacht:
Delphi-Quellcode:
procedure Button1Click(Sender : TObject);
const
Durchlaeufe= 10;
var
Gesamt : Cardinal;
i : Cardinal;
begin
for i := 0 to Durchlaeufe- 1 do
begin
Gesamt := Gesamt + BilderSammeln; // Alternativ: inc(Gesamt, BilderSammeln);
end;
Showmessage('Man benötigt bei ' + IntToStr(Durchlaeufe) + ' Durchläufe(n) ' + IntToStr(Round(Gesamt / Durchlaeufe)) + ' Tafeln Schokolade durchschnittlich');
end;