Arrays mit Integer-Variablen

[joelnbp]

Also:
Ihr seid echt super! Voller Verzweiflung habe ich wieder Hoffnung!
Das Programm lässt sich endlich kompilieren!

Wie man auf dem Bild hoffentlich sieht, wird bei richtiger Eingabe gesagt, man hätte alle Aufgaben richtig. Wenn die Eingabe falsch ist, so sind 0 Aufgaben richtig. Also das Array result_a "resettet" sich nach jeder Aufgabe. So wird dann nicht +1 gerechnet, sodass man nicht weiß wie viele Aufgaben richtig sind. Wiso?

Ebenso sieht man nicht, welche Aufgabe Aktuell ist. Der Wert besteht aus der Anzahl der Aufgaben -1. Wiso?

Und Dankeschön! Ich schätze eure Hilfe sehr!!
Hier die Prozedur des Eingabe-Buttons:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  result_a: array of integer;
  i:integer;
  Counter: Integer;
begin
  a:= StrToInt(zahla.caption);
  b:= StrToInt(zahlb.caption);
  c:= StrToInt(zahlc.text);
  round_i:= StrToInt(round.text);
  zahla.caption:=IntToStr(Random(area_n));
  zahlb.caption:=IntToStr(Random(area_n));
  Counter := 0;

  SetLength(result_a, round_i);
  for i := Low(result_a) to High(result_a) do
    begin
        panel7.caption:=IntToStr(i);
      result_a[i]:= a*b;
      if (c = result_a[i]) then
        begin
          result_a[i]:=1;
          inc(Counter);
        end;
    end;
  panel5.caption:= IntToStr(Counter);
  end;