Sammelbilder [lineares Feld]

[xZise]

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;