Arrays mit Integer-Variablen

[Volker Z.]

Hallo,

ich könnte jetzt lang ausholen und versuchen Dir zu erklären wieso, warum und weshalb es mit Deinem Code nicht so recht klappen mag (wenn es Dich interessiert: Detailfragen gerne per PN).
Da ich Deinen Kenntnisstand nun eher als "Anfänger" einschätze (das ist jetzt keineswegs geringschätig gemeint) wäre die Antwort u. U. recht langatmig (ggf. auch unverständlich), daher lass ich es mal lieber bleiben.

Ich denke Du machst Dir das Leben nur unnötig schwer. Versuch es doch mal so (nur was noch nicht in Deinem Projekt vorhanden ist ergänzen):

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate (Sender : TObject);
    procedure Button1Click (Sender : TObject);
  private
    FCorrectAnswers  : Integer;
    FCurrentExercise : Integer;
    procedure Reset;
  end;

procedure TForm1.FormCreate (Sender : TObject);
begin
  Reset
end;

procedure TForm1.Button1Click (Sender : TObject);
begin
  // Hier ggf, noch prüfen, ob wirklich FCurrentExercise <= Maximun (SpinEdit Runden)
  if StrToInt (zahla.Caption) * StrToInt (zahlb.Caption) = StrToInt (zahlc.Caption) then
    Inc (FCorrectAnwsers);

  Inc (FCurrentExercise);
  // Hier noch die Ausgabe aktualisieren FCorrectAnwsers of FCurrentExercise
  panel5.caption := IntToStr (FCorrectAnwsers);
  zahla.Caption  := IntToStr (Random (area_n));
  zahlb.Caption  := IntToStr (Random (area_n))
end;

// Reset wird immer dann aufgerufen, wenn eine neu Runde beginnt (Button Los)
procedure TForm1.Reset;
begin
  FCorrectAnswers  := 0;
  FCurrentExercise := 1
end;

[joelnbp]

Dankeschön erstmal!
Ich habe jetzt das Projekt erstmal dupliziert, und den Quellcode angepasst eingefügt.
Und ja: Ich bin Anfänger .
Also wäre die andere Methode zu kompliziert für mich? Sinn und Zweck ist ja, dass ich Übung bekommen will.
Aber das hat mich wie gesagt an meine Grenzen gebracht .

Also: Für mein Verständnis habe ich nochmal nen Paar Fragen:

• Was sind private declarations?
• Wie kann die Prozedur Reset ausgeführt werden, wenn das Ausführen in Button1 gar nicht erwähnt wird?
• Kann ich ohne Probleme das Rechenzeichen, also * mit einer Variable Zufällig duch +, -, DIV austauschen? Wobei mir einfällt, dass die Division ein wenig aufwendiger ist, damit das noch ein normaler Mensch rechnen kann, oder?
• Muss ich die andere Methode aufgeben?

Ansonsten: Funktioniert es jetzt erstmal, und dafür bin ich euch, besonders dir V. Zeller, sehr sehr dankbar!!

[Perlsau]

Alle diese Fragen kannst du dir leicht selbst beantworten, indem du ein entsprechendes Grundlagen-Tutorial durcharbeitest. Besser wäre es natürlich, wenn du dir nacheinander verschiedene Tutorials vornimmst und die gewissenhaft und geduldig Schritt für Schritt durchgehst.

Hier gibt es Grundlagen-Tutorials.
Auch die Uni Leipzig bietet ein Delphi-Tutorial.
Es gibt sogar ein entsprechendes Wikibook.
... und noch viel mehr via Google zu erkunden.

Viel Erfolg

[joelnbp]

Dankeschön erstmal an:

• DeddyH
• Helmi
• Volker Z.
• Perlsau

So klapp es ja erstmal, was ich eurer Hilfe zu verschaffen habe!
Dankeschön (:
LG, Joel