Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Inkompatible Typen? (https://www.delphipraxis.net/109299-inkompatible-typen.html)

MrMyagi 27. Feb 2008 18:33
Inkompatible Typen?
 
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 27. Feb 2008 18:37
Re: Inkompatible Typen?
 
Delphi-Quellcode:
if ( GrafikAuto.Top > 0) and (GrafikAuto.Top <640) and (GrafikAuto.Left > 0) and (GrafikAuto.Left < 870) then

MrMyagi 27. Feb 2008 18:38
Re: Inkompatible Typen?
 
Danke, jetzt gehts :thumb:

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




mfG, Nico

Christian Seehase 27. Feb 2008 18:38
Re: Inkompatible Typen?
 
Moin Nico,

Delphi-Quellcode:
(0<GrafikAuto.Top<640)
wäre

Delphi-Quellcode:
(0 < GrafikAuto.Top) and (GrafikAuto.Top < 640)
oder auch

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

dominikkv 27. Feb 2008 19:50
Re: Inkompatible Typen?
 
Zitat:
Zitat von Christian Seehase
Delphi-Quellcode:
(GrafikAuto.Top >= 0) and (GrafikAuto.Top < 640)
wobei dieses "=" den Sinn verändert und damit nicht das gleiche ist.

Christian Seehase 27. Feb 2008 21:16
Re: Inkompatible Typen?
 
Moin Dominik,

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz