Fórum Como saber se é numerico ou caracter #245567

04/08/2004

0

Delphi

Como saber se é numerico ou caracter


Wolverine

Wolverine

Responder

Posts

04/08/2004

Inutaishou 

If char In [0..9] Then
    Numerico
Else
    Caracter;


[]´s,


Responder

Gostei + 0

04/08/2004

Wolverine

ñ deu certo

grafico:string;

if grafico in [0..9] then

[Error] uGrafico.pas(55): Incompatible types: ´String´ and ´Integer´


Responder

Gostei + 0

04/08/2004

Inutaishou

Mil desculpas... É assim:
Var grafico:string;
Begin
if grafico in [´0´..´9´] then
...
End;


PS: Essa rotina só funcionará se for um caracter somente, portanto, sugiro que seja feito assim:
Var grafico:string;
      I : Integer;
Begin
For I := 1 To Length( grafico ) Do
if grafico[i] in [´0´..´9´] then
...
End;


Dessa forma, ele verifica cada caracter da String...

[]´s,


Responder

Gostei + 0

04/08/2004

Wolverine

eu quero comparar valores do BD
quero saber se o campo é de qual tipo
assim
dentro de um for

for i:=0 to DM.qrySZL010.Fields.Count do
    if DM.qrySZL010.Fields.Fields[i].FieldName is numerico
        x:=numerico
    else
        y:=caracter



Responder

Gostei + 0

04/08/2004

Inutaishou

Ah ta!!! Agora entendi... Faça assim:
for i:=0 to DM.qrySZL010.Fields.Count do
    if DM.qrySZL010.Fields.Fields[i].DataType = ftNumeric Then
        x:=numerico
    else
        y:=caracter


Veja no Help que tem diversos tipos que podem ser comparados com o DataType...

[]´s,


Responder

Gostei + 0

04/08/2004

Wolverine

Amigo, muito obrigado, consegui

   for i:=0 to DM.qrySZL010.Fields.Count-1 do
if LowerCase(DM.qrySZL010.Fields.Fields[i].ClassName)  = ´tstringfield´ then
    ShowMessage(´string´)
else
    ShowMessage(´inteiro´)



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar