Einzelnen Beitrag anzeigen

Benutzerbild von blawen
blawen

Registriert seit: 1. Dez 2003
Ort: Luterbach (CH)
651 Beiträge
 
Delphi 12 Athens
 
#2

AW: Versuche werden nicht gezählt

  Alt 9. Aug 2018, 21:57
Problem 1:
Zu Beginn musst Du Randomize aufrufen:
Delphi-Quellcode:
...
Randomize;
Zahl1 := Random(100);
...

Problem 2:
Jedes mal wenn Du den Button drückst, wird die Variable Versuch auf Null zurückgesetzt.
In diesem Fall musst Du die Variable ausserhalb der Function definieren (globale Variablen) und auf Null zurücksetzen.
Innerhalb der Function musst Du die Variable dann hochzählen.

Delphi-Quellcode:
var
  Versuch : Integer;


procedure Reset;
begin
  Versuch := 0;
end;

procedure TForm10.Button3Click(Sender: TObject);
begin
  inc(Versuch);
  ...
end;
Beachte aber, dass globale Variablen häufig zu Fehler/Missverständnissen führt und daher mit Bedacht eingesetzt werden sollte.
Roland

Geändert von blawen ( 9. Aug 2018 um 22:01 Uhr)
  Mit Zitat antworten Zitat