Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.304 Beiträge
 
Delphi XE2 Professional
 
#4

AW: Arrays mit Integer-Variablen

  Alt 16. Nov 2013, 23:00
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
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat