Hola!
Con este codigo (que no he probado aun) intento ver que el string solo tenga numeros, el caracter de espacio y el punto decimal
Código Delphi
[-]procedure TfrmPrincipal.UpdateCaptura1;
var
sTemp,sFinal: string;
i: Integer;
rPeso: Real;
begin
sTemp := MidStr(dmComPort.NuevaCaptura1,10,7);
for i := 0 to length(stemp) do
if sTemp[i] in ['0'..'9',#32,'.'] then
sFinal := sFinal + sTemp[i];
try
rValor := StrToFloat(sFinal);
except
on Exception : EConvertError do
ShowMessage(Exception.Message);
end;
end;
Es correcto el enfoque? No lo he verificado en la practica.
El control de excepcion lanza una ventana de aviso, ¿Es posible solo ignorar la excepcion? se me ocurre para no esperar que el operador Acepte el mensaje solo guardar un log ¿Como haria eso?
Como siempre agradezco su ayuda y tiempo invertido!!
