Opakované přičítání jedničky – Delphi – Fórum – Programujte.com

jsem nováček a chtěl bych úplně jednoduchou věc na kterou nemůžu přijít. Chci, aby pokaždé když kliknu na button přičetla jednička do labelu. Prosím o pomoc...

Můžeš si vytvořit číselnou proměnnou, ve které budeš držet poslední vloženou hodnotu, nebo brát aktuální hodnotu z toho labelu. Pak ji zvýšíš a šoupneš zpátky. Na převod mezi integerem a stringem můžeš použít funkce IntToStr a StrToInt.

hodnota := hodnota + 1;
label.caption := inttostr(hodnota)

label.caption := inttostr(strtoint(label.caption) + 1);

K uložení poslední hodnoty lze použít také tag (mají ho všechny komponenty; lepší než použít globální proměnnou): 

label.Tag := label.Tag + 1;
label.Caption := IntToStr(label.Tag);