if (uhel in [1.5]) or (uhel in [355.360]) then

[matesek]

Dobrý den. Už se mi vaří mozek, jsem přesvědčen že to předtím šlo...
Nevíte někdo proč to nejde? (Podmínka jestliže je úhel mezi 1 až 5 a 355 až 360 tak...)

 if (uhel in [1.5]) or (uhel in [355.360]) then
   begin
   ShapeL := ShapeL + 4;
   ShapeT := ShapeT + 0;
   end;
Díky moc

[J_M]

1..5    355..360

On Fri,  3 Jul 2009 18:21:44 +0200 (CEST)

"matesek" wrote:

>

>

> Dobrý den. Už se mi vaří mozek, jsem přesvědčen že to předtím šlo...

> Nevíte někdo proč to nejde? (Podmínka jestliže je úhel mezi 1 až 5 a 355 až 360 tak...)

>

>  if (uhel in [1.5]) or (uhel in [355.360]) then

>    begin

>    ShapeL := ShapeL + 4;

>    ShapeT := ShapeT + 0;

>    end;

>

>

> Díky moc

> --

> Autor: matesek

> Forum: Delphi

> Odkaz: http://forum.builder.cz/read.php?18,3058303,3058303#msg-3058303

>

Příspěvek zaslán emailem

[maesfsdf]

diky
ted mi to ale ovsem zase hazi nakou jinou chybu

 if (uhel in [253..265]) then
   begin
   ShapeL := ShapeL  -1;
   ShapeT := ShapeT  -4;
   end;

[Pascal Error] Unit1.pas(132): E2001 Ordinal type required

[dfsdfsdfsdfsdfsdf]

překlik sem se chyba zní takto [Pascal Error] Unit1.pas(180): E1012 Constant expression violates subrange bounds

[pf1957]

dfsdfsdfsdfsdfsdf Napsal:

> překlik sem se chyba zní takto   Unit1.pas(180):
> E1012 Constant expression violates subrange bounds

No a cemu nerozumis?

[sddsadasdasd]

no nevim jak to mam opravit

[perverez]

Neni to tim, ze vyctovy typ muze byt v rozsahu byte, tedy [0..255] )

Chuan P.

[sdasfasfasfsf]

hmm a co mam teda dělat ? když to potřebuju do 360...

[perverez]

Asi si musis vymyslet podminku jinak, treba:

if ((uhel >= 1) and (uhel <= 5)) or ((uhel >= 355) and (uhel <= 360)) then

Chuan P.

[perverez]

Take muzes pouzit funkci Math.InRange(...)

Chuan P.