<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">2016-04-18 15:26 GMT-03:00 Luiz Americo Pereira Camara <span dir="ltr"><<a href="mailto:luizamericop@gmail.com" target="_blank">luizamericop@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div class="gmail_extra"><div class="gmail_quote"><span class=""><div><br></div></span><div>I propose to write a test suite first with the desired output, based on Delphi. <br><br></div></div></div></div></blockquote><div><br></div></div>I created a test suite that can be compiled with Delphi (dunit) and fpc (fpcunit). <br><br></div><div class="gmail_extra">Attached are 3 projects: Delphi, fpc (tests MaskUtils function), lazarus (tests LCL.EditMask function)<br><br></div><div class="gmail_extra">Compiled with Delphi 7 - all tests passes<br></div><div class="gmail_extra">FPC 3.0 - maskutils 7 failures 1 error<br></div><div class="gmail_extra">LCL trunk - 3 failures<br><br></div><div class="gmail_extra">There are some oddities in the Delphi 7 results (some of them are marked with //?? comment). I can't say if is a bug or the expected behavior. <br><br>Examples:<br>Res := FormatMaskText('00', 'test');<br></div><div class="gmail_extra">Returns 'te'. 00 is not supposed to be only numbers?<br><br> Res := FormatMaskText('\!cc;0', 'test');<br>Returns 'te!st'. Should not be '!test' ?<br></div><div class="gmail_extra"><br>Anyway i suggest to run the tests with a newer Delphi before settling the expected behavior<br></div><div class="gmail_extra"><br><br></div><div class="gmail_extra">The projects are hosted at <a href="https://bitbucket.org/blikblum/pascal-demos/src/c248883d46797e9b3760338367a0786198acbc47/delphi/FormatMaskText/?at=master">https://bitbucket.org/blikblum/pascal-demos/src/c248883d46797e9b3760338367a0786198acbc47/delphi/FormatMaskText/?at=master</a><br><br><a href="https://bitbucket.org/blikblum/pascal-demos/src/c248883d46797e9b3760338367a0786198acbc47/fpc/FormatMaskTextTests/?at=master">https://bitbucket.org/blikblum/pascal-demos/src/c248883d46797e9b3760338367a0786198acbc47/fpc/FormatMaskTextTests/?at=master</a><br><br><a href="https://bitbucket.org/blikblum/pascal-demos/src/c248883d46797e9b3760338367a0786198acbc47/lazarus/FormatMaskTextLCLTests/?at=master">https://bitbucket.org/blikblum/pascal-demos/src/c248883d46797e9b3760338367a0786198acbc47/lazarus/FormatMaskTextLCLTests/?at=master</a><br></div><div class="gmail_extra"></div><div class="gmail_extra"><br></div><div class="gmail_extra">Luiz<br></div></div>