<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<div class="moz-cite-prefix">Le 04/04/2021 à 02:41, James Richters a
écrit :<br>
</div>
<blockquote type="cite"
cite="mid:34d801d728eb$5124f0c0$f36ed240$@productionautomation.net"><span
style="mso-ascii-font-family:Calibri;mso-hansi-font-family:Calibri;mso-bidi-font-family:"Times
New Roman"">That looks almost perfect.. can I suppress the
trailing zeros with the format command without losing the
alignment? </span></blockquote>
<p>As far as I know, no ...</p>
<p>Not with just the RTL.<br>
Anyway I have personal code for this, you can extract and
customize it to yours needs, it's released under LGPL :</p>
<p>program Format_Example;<br>
uses<br>
sysutils,uReal_Formatter,uuStrings;<br>
procedure FF( _d: double);<br>
var<br>
S: String;<br>
begin<br>
S:= Fixe_MinE( Format_Float(_d, True, 3), 7);<br>
WriteLn( S);<br>
end;<br>
<br>
begin<br>
FF(0.5);<br>
FF(2.53);<br>
FF(12.5);<br>
end.<br>
</p>
<p>------- Output -----</p>
<pre> 0.5
2.53
12.5 </pre>
<p>You can find the used units there:</p>
<p><a class="moz-txt-link-freetext" href="https://github.com/jsuzineau/pascal_o_r_mapping/blob/TjsDataContexte/pascal_o_r_mapping/02_Units/uReal_Formatter.pas">https://github.com/jsuzineau/pascal_o_r_mapping/blob/TjsDataContexte/pascal_o_r_mapping/02_Units/uReal_Formatter.pas</a></p>
<p><a class="moz-txt-link-freetext" href="https://github.com/jsuzineau/pascal_o_r_mapping/blob/TjsDataContexte/pascal_o_r_mapping/02_Units/uuStrings.pas">https://github.com/jsuzineau/pascal_o_r_mapping/blob/TjsDataContexte/pascal_o_r_mapping/02_Units/uuStrings.pas</a>
(just extract functions Fixe_MinE / Fixe_Min0 or you will have to
use a bunch of other units from the same directory
<a class="moz-txt-link-freetext" href="https://github.com/jsuzineau/pascal_o_r_mapping/blob/TjsDataContexte/pascal_o_r_mapping/02_Units/">https://github.com/jsuzineau/pascal_o_r_mapping/blob/TjsDataContexte/pascal_o_r_mapping/02_Units/</a>)<br>
</p>
<p><a class="moz-txt-link-freetext" href="https://github.com/jsuzineau/pascal_o_r_mapping/blob/TjsDataContexte/pascal_o_r_mapping/02_Units/u_sys_.pas">https://github.com/jsuzineau/pascal_o_r_mapping/blob/TjsDataContexte/pascal_o_r_mapping/02_Units/u_sys_.pas</a><br>
</p>
</body>
</html>