Arrays mit Integer-Variablen

[DeddyH]

Zitat von joelnbp:

SO kommt es nämlich zu einer Fehlermeldung.

Tipp für die Zukunft: diese Meldung nicht verschweigen. round_i dürfte eine Variable sein, daher dürfte der Fehler rühren. Der Compiler muss für statische Arrays nämlich bereits zur Designzeit die tatsächliche Größe kennen, was bei einem variablen Wert ja nicht gegeben ist. Das Einfachste wäre daher IMO, auf ein dynamisches Array umzustellen, das kann man nämlich zur Laufzeit dimensionieren.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  result_a: array of integer;
  i:integer;
begin
  SetLength(result_a, round_i);
  for i := Low(result_a) to High(result_a) do begin
    result_a[i]:= a*b;
    if (c = result_a[i]) then //result_a:= richtig
      (* Code *);
  end;
end;

[joelnbp]

Dankeschön! Das hat mit erstmal echt geholfen!!

Aber wie kann ich die Anzahl der richtigen Ergebnisse zusammenzählen? Also dann:

Delphi-Quellcode:

for i := Low(result_a) to High(result_a) do begin
    result_a[i]:= a*b;
    if (c = result_a[i]) then result_a[1]=r //nächste Runde dann result_a[2]
    ;
  end;
  richtige_loesungen.caption:= count result_a //nach r durchsuchen

[Helmi]

Hallo,

du brauchst noch eine Variable:

Delphi-Quellcode:

var
  Counter: Integer;

{...}

Counter := 0;

for i := Low(result_a) to High(result_a) do 
  begin
    result_a[i]:= a*b;
    if (c = result_a[i]) then 
      begin
        result_a[1]=r; //nächste Runde dann result_a[2]
        inc(Counter);
      end;
  end;
richtige_loesungen.caption:= IntToStr(Counter); //nach r durchsuchen

[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;