Edit passa qualquer tipo de dados

Delphi

28/01/2007

Olá pessoal,

Estou com um problema...

A propriedade text do edit sempre retorna o valor que o usuário inseriu no edit em forma de string, só que eu preciso passar esse valor as vezes como string ou como integer, vejam, eu tentei fazer o seguinte, declarei uma variavel variant para receber o conteudo do edit, mais a variant sempre fica como string embora eu coloque um valor inteiro no edit, como eu faço pra pegar o valor do edit hora string hora integer?

tipo

var valorIntouString: Variant;

...

valorIntouString := Edit1.text;

if VarType(valorIntouString) = varString then
  ShowMessage(´String´)
else
  ShowMessage(´Integer´);


Só que isso ai não funciona, sempre retorna string...

Alguém tem idéia do que eu posso fazer?

Obrigado.


Gardel

Gardel

Curtidas 0

Respostas

Fortaum

Fortaum

28/01/2007

- Camarada, tenta fazer algo do tipo:
  try
    StrToInt(´edit1.text´);
  except
    showmessage(´conteúdo string´);
  end;

  // caso não haja exception o conteúdo é integer



GOSTEI 0
Fortaum

Fortaum

28/01/2007

- Camarada, tenta fazer algo do tipo:
  try
    StrToInt(´edit1.text´);
  except
    showmessage(´conteúdo string´);
  end;

  // caso não haja exception o conteúdo é integer


Jader E. Gonçalves
Software Developer


GOSTEI 0
POSTAR