chce zrobic licznik, odliczajacy powiedzmy od 50 w dol. w jakim polu textowym to zrobic, bo w label sie nie da....
/* Pisz tematy streszczające problem */
chce zrobic licznik, odliczajacy powiedzmy od 50 w dol. w jakim polu textowym to zrobic, bo w label sie nie da....
/* Pisz tematy streszczające problem */
chce zrobic licznik, odliczajacy powiedzmy od 50 w dol. w jakim polu textowym to zrobic, bo w label sie nie da....
jak to sie w label nie da? W programowaniu malo czego sie nie da a to akurat sie da :) Walnij timer i dodaj jakas zmienna globalna i w niej daj to od ilu chcesz odliczac i w OnTimer wpisz
begin
Dec(zmienna_ta_z_wartoscia);
label1.caption := IntToStr(zmienna_ta_z...);
end;
i po klopicie
możesz zrobić tak:
procedure..........
var a : Integer;
begin
for a:=50 downto 0 do //chyba to tak sie robiło
begin
Wait(200);
Label1.Caption:=IntToStr(a);
end;
end;
dzieki... a jak bym na przyklad chcial zeby po kazdym jakims zdarzeniu dodawal do label jeden? zaczynamy od zera.
if zdarzenie then
begin
//co tu dac?
end.
label.Caption := IntToStr(StrToInt(label.caption) + 1); ???
możesz zrobić tak:
procedure..........
var a : Integer;
begin
for a:=50 downto 0 do //chyba to tak sie robiło
begin
Wait(200);
Label1.Caption:=IntToStr(a);end;
end;
// dopisane by mr.hex
jak juz to nie Wait tylko Sleep :p