{"id":64,"date":"2007-08-28T16:36:00","date_gmt":"2007-08-28T16:36:00","guid":{"rendered":"http:\/\/www.webmundi.com\/?p=64"},"modified":"2019-06-13T11:19:40","modified_gmt":"2019-06-13T14:19:40","slug":"formata-valor-numerico-inserindo-mascaras-de-ponto","status":"publish","type":"post","link":"http:\/\/localhost\/cmswebmundicom\/desenvolvimento-de-sistemas\/delphi\/formata-valor-numerico-inserindo-mascaras-de-ponto\/","title":{"rendered":"Formata valor num\u00e9rico inserindo mascaras de ponto."},"content":{"rendered":"
Formata valor num\u00e9rico inserindo mascaras de ponto.<\/p>\n
function FormatNumber(l: longint): string;
\nvar
\nlen, count: integer;
\ns: string;
\nbegin
\nstr(l, s);
\nlen := length(s);
\nfor count := ((len – 1) div 3) downto 1 do
\nbegin
\ninsert(‘.’, s, len – (count * 3) + 1);
\nlen := len + 1;
\nend;
\nFormatNumber := s;
\nend;<\/p>\n","protected":false},"excerpt":{"rendered":"
Formata valor num\u00e9rico inserindo mascaras de ponto. function FormatNumber(l: longint): string; var len, count: integer; s: string; begin str(l, s);…<\/p>\n","protected":false},"author":2,"featured_media":1445,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_kadence_starter_templates_imported_post":false,"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"footnotes":""},"categories":[9,13],"tags":[27,28,14],"class_list":["post-64","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-delphi","category-desenvolvimento-de-sistemas","tag-delphi","tag-desenvolvimento-de-sistemas","tag-programacao"],"yoast_head":"\n