Forum CDRinfo.pl - Pascal...pytanie

Strona 5 z 5

Pokaż 100 postów z tej dyskusji na jednej stronie

Forum CDRinfo.pl (https://forum.cdrinfo.pl/)

- Komputery - oprogramowanie i sprzęt (https://forum.cdrinfo.pl/f113/)

- - Pascal...pytanie (https://forum.cdrinfo.pl/f113/pascal-pytanie-43359/)

Posłany

01.12.2004 14:15

Cytat:

Napisany przez MacGyver

Ja mam pytanie dotyczące Delphi:
Mam formatkę na której umieszczam 4 obiekty typu "Panel" (panele są tych samych rozmiarów i w tych samych miejscach, w ten sposób że się pokrywają).
Pytanie: czy istnieje jakaś instrukcja, żeby dany panel odrazu "wywalić" na samą górę??? (bez komend ukrywających pozostałe panele)
Dotychczas robiłem to w ten sposób, że w kodzie jakiegoś przycisku wpisywałem np.

Kod:

Form1.Panel2.Visible:=False; //ukrywa drugi panel

Form1.Panel1.Visible:=True;  //...i odkrywa pierwszy

???

Raczej trzeba w ten sposób. Bo Ty ustawiając je na formie przyporządkowujesz im "warstwe". No chyba że istnieje dla TPanel'u funkcja Focus...

MacGyver

01.12.2004 13:16

Kod:

Form1.Panel2.Visible:=False; //ukrywa drugi panel

Form1.Panel1.Visible:=True;  //...i odkrywa pierwszy

???

Patrix

24.11.2004 22:52

MacGyver i cyki

- dzięki, działa :)

PS
reputy poszły.... ;)

MacGyver

24.11.2004 22:47

Cytat:

Napisany przez cyki

Jak dla mnie to będzie:
IF a+b >= 0 AND -1*(a+b) >= 0 THEN Begin [...] End;

A dokładniej (bo wywali błąd):
IF ((a+b>=0) AND (-1*(a+b)>=0)) THEN Begin [...] End

Cytat:

chodzi mi o to jaki ma być znaczek między dwoma nierównościami po IF (chce to zrobić w jednym warunku)

AND

Patrix

24.11.2004 22:46

Cytat:

Napisany przez MacGyver

W Pascalu wstawiasz je między BEGIN a END (zaraz po THEN)
...bynajmniej tak jest w Delphi - a to też Pascal

...::Update::...
QRde, zle zrozumiałem :ysz:
...dajesz w nawiasach pierwszy warunek potem wpisujesz AND i drugi warunek

Wiem gdzie sie to wstawia :)
chodzi mi o to jaki ma być znaczek między dwoma nierównościami po IF (chce to zrobić w jednym warunku)...

cyki	24.11.2004 22:45

Jak dla mnie to będzie:
IF a+b >= 0 AND -1*(a+b) >= 0 THEN Begin [...] End;

MacGyver

24.11.2004 22:42

Patrix

24.11.2004 22:38

Pascal...pytanie

Chodzi mi o warunek w Pascalu:

Kod:

IF a+b<0 THEN WriteLn('blabla (blabla): ', -1*(a+b), ' blabla !!!')

problem w tym, że mam potrzebę wstawienia dwóch nierówności po IF
np: 'a+b>=0' i np '-1*(a+b)>=0'

Jeśli ktoś nie kuma o co mi chodzi to podam przykałd na C++:

Kod:

if((a>=5)&&(a<=21))

{

}

W C++ w tym wypadku stosuje sie znaczek '&&' -(i) bub '||' -(lub)

Jak to jest w Pascalu ??

Wszystkie czasy w strefie CET. Aktualna godzina: 00:20.

Strona 5 z 5

Pokaż 100 postów z tej dyskusji na jednej stronie