A small bug in TEMBEDDEDWB

xiaoxiao2021-03-06  106

I don't know if it is a problem in these days, I always meet some small bugs. Yesterday I wrote a small program with browsing web code, the map is convenient, using the TEMBEDDEDWB control, which provides some options and methods on the TWEBBROWSER control comes with Delphi. After getting home, open this project, it is wrong when you open the browsing page window: "Error Creating form: '' is not a valid floating point value". There is no other control on this window, just the TEMBEDDEDWB control, the situation should be wrong when the control is loaded, and the error should occur when the character is converted to the float pattern. New project, put a TEMBEDDEDWB control, and there is a problem. After turning off, open it, the problem is reproduced. Open the EmbedDedwb.Pas unit, first look for the strtofloat function, ok, ok, only two places, you are using the getprintvalues ​​function, the function content is as follows: procedure tembeddedwb.getPrintValues; var s: string; regwinregistry: TregiStry ;

Function Readmargin (key: string): real; begin s: = regwinregistry.readstring (key); s: = stringReplace (s, '', '', [rfreplaceAll]); if DecimalseParator <> '.' Then S: = StringReplace (s, '.', Decimalseparetor, []); if printOptions.measure = mmetric dam: = start: = strtometric else result: = strtOfloat (s); END;

转载请注明原文地址:https://www.9cbs.com/read-96374.html

New Post(0)