Backspace Para calculadora

Delphi

30/08/2003

Olá amigos, estou com um trabalho para entregar de uma calculadora, porem, estou tentando criar uma tecla de BackSpace, e estou com uma certa dificuldade com isso.
Tenho um valor em um StaticText e preciso que uma tecla apague o ultimo caractere recebido por este StaticText.
Desde já agradeço pela ajuda.
Até mais.


Lordskinner

Lordskinner

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

30/08/2003

colega,
StaticText1.Caption:= copy(StaticText1.Caption,1,length(StaticText1.Caption)-1);

isso deve resolver seu problema...


GOSTEI 0
Wbb

Wbb

30/08/2003

Um pouquinho mais simples até:

StaticText1.Caption := LeftStr(StaticText1.Caption, Length(StaticText1.Caption)-1);


Até mais,
wbb

OBS.: Não esqueça de incluir a biblioteca StrUtils, em Uses, senão a função não funciona.


GOSTEI 0
POSTAR