Arrays mit Integer-Variablen

[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