Fórum Verificar se o caracter pode ser convertido para Inteiro #279636
30/04/2005
0
Estou com um problema, estou capturando valores de uma porta serial, mas vem com muito lixo, os dados, então filtrei usando POS e procurando por ´.´
Mas gostaria de saber se o primeiro caracter antes do ´.´ é um cartacer numero. Estou usando o copy para isto, mas gostaria de saber se é possovel verificar de uma forma diferente do que pedir para converter e onter um erro se não for tipo strtoint(copy(svlr,i,p)) existe outra alternativa ?
Agradeço antecipadamente a todos
Mas gostaria de saber se o primeiro caracter antes do ´.´ é um cartacer numero. Estou usando o copy para isto, mas gostaria de saber se é possovel verificar de uma forma diferente do que pedir para converter e onter um erro se não for tipo strtoint(copy(svlr,i,p)) existe outra alternativa ?
Agradeço antecipadamente a todos
Emery
Curtir tópico
+ 0
Responder
Posts
30/04/2005
Nerdex
var i: integer;
const num: = ´0123456789´;
if pos(texto[i],num) <> 0 then
begin
//showmessage(´achou um número´);
end;
const num: = ´0123456789´;
if pos(texto[i],num) <> 0 then
begin
//showmessage(´achou um número´);
end;
Responder
Gostei + 0
30/04/2005
Eduprp
Colega
Você pode fazer uma função para conversão dos valores, trabalhando com excessões Ex.:
Funciton Converte(sValor: String): Float;
begin
try
Result:= StrToFloat(sValor);
except
Result:= 0;
end;
end;
Se o valor que vc tentar converter não for um Float vai retornar 0;
Eduardo Pereira
Você pode fazer uma função para conversão dos valores, trabalhando com excessões Ex.:
Funciton Converte(sValor: String): Float;
begin
try
Result:= StrToFloat(sValor);
except
Result:= 0;
end;
end;
Se o valor que vc tentar converter não for um Float vai retornar 0;
Eduardo Pereira
Responder
Gostei + 0
30/04/2005
Beppe
var
P: Integer;
begin
P := Pos(´.´, Dados);
if (P > 1) and (Dados[P - 1] in [´0´..´9´]) then
begin
// se chegar aqui, tem um dígito seguido de ponto
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)