Inkompatible Typen?

[MrMyagi]

Moin,
könnt ihr mir zufällig sagen, wie ich dieses hier verbessern muss?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ((0<GrafikAuto.Top<640) and (0<GrafikAuto.Left<870)) then
begin
ShowMessage('Das Auto ist im Gebiet');
end;
end;

mfG, Nico

[mkinzler]

if ( GrafikAuto.Top > 0) and (GrafikAuto.Top <640) and (GrafikAuto.Left > 0) and (GrafikAuto.Left < 870) then

[MrMyagi]

Danke, jetzt gehts

Schönen Abend noch (solangen ich keine Fragen mehr habe )




mfG, Nico

[Christian Seehase]

Moin Nico,

(0<GrafikAuto.Top<640) wäre

(0 < GrafikAuto.Top) and (GrafikAuto.Top < 640) oder auch

(GrafikAuto.Top > 0) and (GrafikAuto.Top < 640) Das finde ich etwas lesbarer.
(den anderen Vergleich dann analog anpassen)

[dominikkv]

Zitat von Christian Seehase:

(GrafikAuto.Top >= 0) and (GrafikAuto.Top < 640)

wobei dieses "=" den Sinn verändert und damit nicht das gleiche ist.

[Christian Seehase]

Moin Dominik,

danke für den Hinweis.
Ich habe den Tipfehler korrigiert.