Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal, tenho uma variável (vou chamá-la de VARCAIXATXT) que recupera o que o usuário digitou na caixa de texto. Se o usuário digitar um número, quero executar uma instrução. Se digitar um texto, quero executar outra, e se digitar uma data outra instrução ainda.Por isso a dúvida: Qual a função para verificar o tipo de dado de uma variável, inicialmente do tipo string?Desde já agradeço a atenção.
Uma forma seria efetuando testes sobre ela com try except estruturado, algo do tipo:
procedure TForm1.BitBtn1Click(Sender: TObject);var VARCAIXATXT: string; achou: boolean;beginachou:=False;VARCAIXATXT:=Edit1.Text;//Testa se é númerotry StrToInt(VARCAIXATXT); achou:=True; ShowMessage('É um número !');except end;//Testa se é valor floatif not achou then begin try StrToFloat(VARCAIXATXT); achou:=True; ShowMessage('É um float !'); except end; end;//Testa se é dataif not achou then begin try StrToDate(VARCAIXATXT); achou:=True; ShowMessage('É uma data !'); except end; end;//Nenhum dos acimaif not achou then ShowMessage('É uma string !');end;