Help s Booleanem!

~ Anonymní uživatel
~ 74 příspěvků

15. 2. 2007 #1

Ahoj,jsem začátečník a potřebuju pomoc:
Co je to boolean?
Potřebuju pomoc s:

procedure TForm1.Label1Click(Sender: TObject);

begin

repeat

 Label1.Left:=Label1.Left+1;

until Label1.Left:=500;

end;

poradí mi někdo?

Nahlásit jako SPAM

IP: ...–

janc1 0

Návštěvník

15. 2. 2007 #2

boolean je logicka hodnota, ma dva stavy - true (pravda) a false (nepravda)
jej velkost je 1 bit

a k tomu prikladu:

procedure TForm1.Label1Click(Sender: TObject);

begin

repeat

 Label1.Left:=Label1.Left+1;

until Label1.Left<=500;                        // v riadiacej premennej cyklu nemozes priradovat (tj. pouzivat :=) ale musis pouzit boolean vyraz (tzn. nieco o com mozme hned povedat ci je to pravdive (true) alebo nepravdive (false) ) 

end;

btw. sikovnejsie to je ked pouzijes cyklus if ako repeat-until (aspon v tomto pripade)
asi chces aby sa ti ten text posuval, takze je dost nesikovne dat to do Label.OnClick, radsej pouzi timer nejak takto:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  if (Label1.Left <= 500) then

    Label1.Left := Label1.Left + 1;

end;

dufam ze som to vysvetlil tak, aby sa to dalo pochopit ;-)

Nahlásit jako SPAM

IP: ...–

Jan Škrášek

~ Redaktor

Boss

Kultivátor příspěvků ve starém fóru – 2.02 % z celku

15. 2. 2007 #3

Daniel píše:#
#

procedure TForm1.Label1Click(Sender: TObject);#
#begin#
#repeat#
# Label1.Left:=Label1.Left+1;#
#until Label1.Left:=500;#
#end;

predpokaldam ze svym prikaldem chces dosahnou pohybu labelu doprava,

chyba v tvem prikaldu je, ze teoreticky na rychlejsich strojich by si nemusel posun vubec videt, pouze by label skocil na vysledne misto.... (otazkou je, co v teto chvili taky dela zapnuta optimalizace...)
proto je dobre pouzivat timer, ve kterym nastavi po jakych mikrosekundach se ma pricist neco k leftu... ;)

Nahlásit jako SPAM

IP: ...–

http://jan.skrasek.com – @hrachcz – webdeveloper

ProgDan 0

Stálý člen

16. 2. 2007 #4

A do cyklu musíš vložit Application.ProcessMessages; jinak se ti nebude překreslovat okno a uvidíš ten Label v původní a pak až v koncový poloze a ten pohyb se nezobrazí

Nahlásit jako SPAM

IP: ...–

Collecting data is the first step to the wisdom, but sharing data is the first step to the community.

eMan 0

Stálý člen

20. 2. 2007 #5

janc1 píše:#
# boolean je logicka hodnota, ma dva stavy - true (pravda) a false (nepravda)#
#jej velkost je 1 bit

no jako velikost je sice 1bit ale stejne se ukladá jako 8bitů :)

ProgDan píše:#
# A do cyklu musíš vložit Application.ProcessMessages; jinak se ti nebude překreslovat okno a uvidíš ten Label v původní a pak až v koncový poloze a ten pohyb se nezobrazí

jinak nejlepší by to bylo asi vložit do časovač, myslím že v tomto případě ti Application.ProcessMessages; vůbec nepomůže...

Nahlásit jako SPAM

IP: ...–

retriwr0

Stálý člen

26. 2. 2007 #6

janc1 píše: btw. sikovnejsie to je ked pouzijes cyklus if ako repeat-until

Co je to za nesmysl?
If není cyklus, ale podmíněný příkaz. Pravda je, že by v tomto případě bylo vhodné jej využít (pokud se má při každém kliknutí posunout Label doprava)

Nahlásit jako SPAM

IP: ...–

You gotta do what you gotta do

← Zpět na seznam vláken ← Zpět do Fóra