Hey Leute bin gerade dabei ein Programm mit IF-THEn Funktion,Random-Funktion und Timer-komponente zu erstellen.
Zum Programm:
Beim Klicken auf den Button Zufallszahl wird der Timer aktiviert.
Bei jedem Timerdurchlauf wird eine Zufallszahl zwschen 0 und 99 erzeugt.
Nach 50 Durchläufen wird der Timer deaktiviert.
Ist die Zahl dann größer als 75 soll eon weiteres label mit dem Text "Hurra, Sie haben gewonnen" sichtbar werden.
Quellcode:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
| type
TForm1 = class(TForm)
ButtonZufallszahl: TButton;
LabelZufallszahl: TLabel;
ButtonEnde: TButton;
LabelGewonnen: TLabel;
TimerZufallszahl: TTimer;
procedure ButtonEndeClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ButtonZufallszahlClick(Sender: TObject);
procedure TimerZufallszahlTimer(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
VAR Zufallszahl,Durchlauf:integer;
procedure TForm1.ButtonEndeClick(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
procedure TForm1.ButtonZufallszahlClick(Sender: TObject);
begin
LabelGewonnen.visible:=false;
TimerZufallszahl.enabled:=true;
Durchlauf:=1;
end;
procedure TForm1.TimerZufallszahlTimer(Sender: TObject);
begin
Zufallszahl:=random(100);
LabelZufallszahl.Caption:=IntToStr(Zufallszahl);
Durchlauf:=Durchlauf+1;
IF Durchlauf=50 THEN TimerZufallszahl.Enabled:=False;
IF (Zufallszahl>75) AND (TimerZufallszahl.Enabled:=False)
THEN LabelGewonnen:=True;
end;
end. |
Problemstellung:
Wenn ich das programm testen will, dann zeigt er mir die Fehlermeldung
[Error] IfThen1.pas(62): Operator not applicable to this operand type an
und zeigt mir die markierte zeile an.
Moderiert von 
Gausi: Beiträge zusammengefasst.
Habe vergessen zu erwähnen, dass ich morgen eine Arbeit über diese Thema schreibe und wäre daher über eine schnelle Antwort sehr dankbar.
Euer Deplhi Schüler
Moderiert von Gausi: Delphi-Tags hinzugefügt
