Porque XC = Inteiro

[marcos moreno 0]

ola pessoal

estou aqui pra saber c um erro q acontece comigo aconteceu com alguém

tenho o delphi 2009

eu coloquei em um form 1 botao e 2 edits e coloquei o seguinte comando no botao

 

procedure TForm1.Button1Click(Sender: TObject);

var

i : Integer;

begin

i := StrToInt(Edit1.Text);

Edit2.Text := IntToStr(i);

end;

 

so que se eu colocar a letra xc ele converte a letra em numero "12" que é estranho, pode ser meio esquisido porque onde vou usar o xc mas eu tava fazendo um banco de dados que num campo integer tinha 12 e quando digitei "xc" pra localizar veio isso

e não é so o xc

 

xcc = 204

xccc = 3276

e por ai vai

 

c alguém tiver alguma esplicacao para isso gostaria muito de saber ou como contornar esse bug

 

Grato Marcos Augusto

[Fabriciocbj 0]

É porque dessa maneira você está convertendo um valor em string para inteiro.

O correto seria você fazer uma função para fazer o tratamento e somente deixar você digitar valor Inteiro, ou

você pode utilizar o componente TrxSimEdit ele só permite dados numericos.