Usuwanie tekstu z pola Edit

0

Witam. To moje początki z Delphi 7. Chciałbym zrobić przycisk tzw. Backspace do usuwania tekstu z pola Edit. Czy mógłby mi ktoś napisać jak to zrobić?

0

Takie tematy to w dziale Newbie pisz.

0

Dziękuję, będę pamiętał na przyszłość

0

Chodzi Ci o zwykły przycisk TButton, którego akcją jest czyśczenie TEdit? Wstawiasz Button'a i w OnClick dajesz:

Edit1.Text := '';
0

Edit.Text := '';
Edit.Clear;

0

Źle sprecyzowałem, chodziło mi o pojedyncze kasowanie znaków :) Tak jak przycisk Backspace z klawiatury komputera.

0

a który znak byś chciał usnąć?

BTW zgadując Twoje następne pytania zapoznaj się z
funkcja Delete, Copy
i właściwości Edit SelStart i SelLength

0

Ostatni znak, np mamy abcd to po przyciśnieciu przycisku jeden raz usuwałby ostatni znak, czyli zostawałoby abc i kolejny raz po przyciśnięciu zostawałoby ab itd.

0
var s : string;
...
s := edit1.text;
if (length(s) > 1) then
setlength(s, length(s)-1);
edit1.text := s;

albo prosciej z uczyciem substring, jesli cos takiego jest w Delphi.

1 użytkowników online, w tym zalogowanych: 0, gości: 1