Fehlermeldung Operator auf ordnertyp nicht anwendbar

ScreaM · Hält's aus hier Beiträge: 4

Nabend zusammen,
also bin noch ein Anfänger in Delphi und hab da mal ein Problem.
Mein Projekt ist eine Kreuzung mit Ampelschaltung und abbiegenden fahrrädern zu machen.
Damit mein rad2 rechts abbiegt, an der rotenampel jedoch hält hab ich folgendes geschrieben(left=224 ist direkt vor der Ampel):

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

if (ampelgruen.visible=false) and (rad2.Visible=true)
    then if rad2.left=224
         then rad2.Left:=224
         else
    If rad2.Left<=320
        then rad2.Left:=rad2.Left+2
        else rad2.Top:=rad2.Top+2;

soo jetzt kommt aber der fehler:
[Fehler] mampel.pas(305): Operator ist auf diesen Operandentyp nicht anwendbar
es geht um die letzde zeile

danke schonmal für eure Hilfe

MfG
ScreaM

Moderiert von Gausi: Delphi-Tags hinzugefügt.

Gausi · Verfasst: Di 25.10.05 20:45

Bei welcher Zeile meckert er denn genau?

_________________
We are, we were and will not be.

ScreaM · Hält's aus hier Beiträge: 4

bei der letzden zeile "else rad2.Top:=rad2.Top+2;"

Tilman · Verfasst: Di 25.10.05 21:03

Kann nicht sein poste mal mehr text, vielleicht hast du ne klammer oder nen >;< vergessen. Dein code funktioniert bei mir (mit zwei Labeln als rad und einem shape als ampelgruen)

ScreaM · Hält's aus hier Beiträge: 4

Das ist der komplette von diesem timer

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.timer1Timer(Sender: TObject);
begin

if (ampelgruen.visible=false) and (rad2.Visible=true)
    then if rad2.left=224
         then rad2.Left:=224
         else
    If rad2.Left<=320
        then rad2.Left:=rad2.Left+2
        else rad2.Top:=rad2.Top+2;

If Rad2.top=616
   then begin rad2.Visible:=false;
              rad2.Top:=376;
              rad2.Left:=0;
              Auto1.Visible:=true; end;

end;

das auto1 hinterher visible gemacht wird ist ne andere geschichte das is dann damit rad2 erstmal unsichtbar auf seiner "startposition" wartet und auto1 fahren lässt.

Moderiert von raziel: Delphi-Tags hinzugefügt.

ScreaM · Hält's aus hier Beiträge: 4

problem wurde gelöst, danke für eure hilfe

Alstar · Beiträge: 827

Und woran lags?

Alstar

Tilman · Verfasst: Di 25.10.05 22:11

Alstar hat folgendes geschrieben:

Und woran lags?

Alstar

jedenfalls wohl nicht an dem angegebenen quelltext - der läuft nach wie vor

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme