Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Versuche werden nicht gezählt

  Alt 10. Aug 2018, 03:26
Ps: So in etwa würde ich es machen, zum Einstieg, später kannst Du es mit Klassen und eigenen Funktionen/Methoden immer noch abändern/erweitern.
Falls noch kein "Form.Create" Event existiert, doppelklick auf eine leere Stelle im Dialog, oder wähle im Objekt-Inspektor die Form aus und setze manuell ein solches Event.
Delphi-Quellcode:
procedure TForm10.FormCreate(Sender: TObject);
begin
  // alles was hier gesetzt wird, passiert nur einmal bei Programm-Start.
  Randomize; // das initialisiert den Zufallsgenerator von Random()
  // PS: Es reicht diesen einmal irgendwo im aktuellen Thread aufzurufen.
  Versuche := 0; // setze Variable Versuche auf 0
end;

procedure TForm10.Button3Click(Sender: TObject);
begin
  Versuche := Inc(Versuche); // addiere plus 1 zu Variable Versuche
  label5.Caption := 'Versuche: '+IntToStr(Versuche); // Schreibe Variable Versuche in Caption

  zahl1 := Random(100)+2; // gebe Zahl1 einen Zufallswert der mindestens 2 ist
  zahl2 := Random(100)+2; // gebe Zahl2 einen Zufallswert der mindestens 2 ist
  label2.Caption := IntToStr(zahl1); // schreibe Variable Zahl1 in Caption
  label3.Caption := IntToStr(zahl2); // schreibe Variable Zahl2 in Caption

  // Falls mit den Captions und Zahl1/2 nichts weiter gemacht werden soll, geh ich mal Dein Original Code weiter durch

  zahl3 := Random(100)+2; // gebe Zahl3 einen Zufallswert der mindestens 2 ist
  zahl4 := Random(100)+2; // gebe Zahl4 einen Zufallswert der mindestens 2 ist
  label2.Caption := IntToStr(zahl3); // schreibe Variable Zahl3 in Caption
  label3.Caption := IntToStr(zahl4); // schreibe Variable Zahl4 in Caption

  Ergebnis2 := (zahl3 + zahl4); // übergebe eine Addition an Ergebnis2 (Zahl3 + Zahl4)
  edit2.Text := IntToStr(Ergebniss2); // schreibe Variable Ergebnis2 in Caption
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat