Autor Téma: pomoc  (Přečteno 2272 krát)

BUBU

  • Host
pomoc
« kdy: 19-04-2005, 18:52:00 »
Když se (Acol=6 a(Arow=5 nebo 13)) nebo když se (Acol=16 a (Arow=5 nebo 13), tak neskočí do příslušného If a skočí pouze když je různo od těchto hodnot do posledního if.

If Arow in [5,13] THen
BEgin
Showmessage('Semtu'+Inttostr(acol));
If Acol in [6,7,8,9,10,12,13,14,15,16] Then
Begin
If Acol=6 Then
Begin
Showmessage('Semtu'+Inttostr(acol));
If Arow=5 Then
Begin
If Xmin-Acol=0 Then Pomocscup(Acol,Arow,Acol,Zalohapole,True,i)
Else If Xmin-Acol=-1 Then Pomocscup(Acol,Arow,Arow,Zalohapole,true,i);
End
Else
If ARow=13 Then
If Xmin-Acol=0 Then Pomocscup(Acol,Arow,Acol,Zalohapole,True,i)
Else If Xmin-Acol=1 Then Pomocscup(Acol,Arow,Arow,Zalohapole,False,i);
End
Else
If Acol=16 Then
Begin
Showmessage('Semtu'+Inttostr(acol));
If Arow=5 Then
BEgin
If Xmin-Acol=0 Then Pomocscup(Acol,Arow,Acol,Zalohapole,False,i)
Else If Xmin-Acol=-1 Then Pomocscup(Acol,Arow,Arow,Zalohapole,True,i);
End
Else
If Xmin-Acol=0 Then Pomocscup(Acol,Arow,Acol,Zalohapole,False,i)
Else If Xmin-Acol=1 Then Pomocscup(Acol,Arow,Arow,Zalohapole,False,i);
End
Else
If Xmin-Acol=-1 Then Pomocscup(Acol,Arow,Acol,Zalohapole,True,i)
Else If Xmin-Acol=1 Then Pomocscup(Acol,Arow,Acol,Zalohapole,False,i);

End
End

bubU

  • Host
pomoc
« Odpověď #1 kdy: 19-04-2005, 19:29:59 »
cO JE ŠPATNĚ POTŘEBUJU NUTNĚ

JanFiala

  • Host
pomoc
« Odpověď #2 kdy: 19-04-2005, 19:32:59 »
Promin, ale nikde v podmince
If Acol in [6,7,8,9,10,12,13,14,15,16] Then
nevidim cislo "5"

Jinak ta podminka se da napsat i takto:
If Acol in [6..16] Then


JanFiala

  • Host
pomoc
« Odpověď #3 kdy: 19-04-2005, 19:34:00 »
promin, beru zpet, neumim cist

JanFiala

  • Host
pomoc
« Odpověď #4 kdy: 19-04-2005, 19:39:59 »
A jsi si jisty, ze jsou tam opravdu skutecne ty spravne hodnoty v ARow nebo ACol pred vyhodnocenim ?

Problem muze byt s neshodnymi typy.
Vytvove typy se daji pouzit pouze v rozsahu 0.255. ARow a ACol jsou predpokladam Integer.
Takze to zkus predtim pretypovat treba na typ Byte nebo to nahrad podminkami

If (Arow = 5) or (ARow = 13) THen
BEgin
Showmessage('Semtu'+Inttostr(acol));
If (Acol >= 6) and (ACol <= 16) Then
Begin
If Acol=6 Then

BUBU

  • Host
pomoc
« Odpověď #5 kdy: 19-04-2005, 21:41:00 »
No zkoušel jsem showmessage předtím a byli tam.

JanFiala

  • Host
pomoc
« Odpověď #6 kdy: 19-04-2005, 22:29:00 »
A s temi upravenymi podminkami to chodi ?