Código Delphi [-] var Value: Double; begin with Edit6 do begin if not TryStrToFloat(Text, Value) then begin Text := ''; SetFocus; end; end; ...
var Value: Double; begin with Edit6 do begin if not TryStrToFloat(Text, Value) then begin Text := ''; SetFocus; end; end; ...