Jak mam zrobić żeby do Edit 'a dodawało mi 1 po kliknięciu w guzik ?????
Dodawanie 1 do zawartości Edit
Wątek przeniesiony 2017-03-05 16:06 z Delphi i Pascal przez flowCRANE.
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Tuchów
- Postów: 12316
0
Edit.Text := IntToStr(StrToInt(Edit.Text) + 1);
Lepszym rozwiązaniem było by skorzystanie z kontrolki typu TSpinEdit, która posiada właściwość Value typu Integer. Wtedy inkrementacja mogła by wyglądać tak:
Spin.Value := Spin.Value + 1;