{"id":91,"date":"2007-08-28T16:36:00","date_gmt":"2007-08-28T16:36:00","guid":{"rendered":"http:\/\/www.webmundi.com\/?p=91"},"modified":"2025-03-20T17:07:38","modified_gmt":"2025-03-20T20:07:38","slug":"adicionar-zeros-delphi","status":"publish","type":"post","link":"http:\/\/localhost\/cmswebmundicom\/desenvolvimento-de-sistemas\/adicionar-zeros-delphi\/","title":{"rendered":"Como Adicionar Zeros \u00e0 Esquerda de uma String no Delphi"},"content":{"rendered":"
Se voc\u00ea precisa formatar n\u00fameros<\/strong> ou strings<\/strong> adicionando zeros \u00e0 esquerda para atingir um tamanho fixo, pode utilizar a fun\u00e7\u00e3o Abaixo est\u00e1 a implementa\u00e7\u00e3o da fun\u00e7\u00e3o otimizada:<\/p> <\/p>","protected":false},"excerpt":{"rendered":" Se voc\u00ea precisa formatar n\u00fameros ou strings adicionando zeros \u00e0 esquerda para atingir um tamanho fixo, pode utilizar a fun\u00e7\u00e3o…<\/p>\n","protected":false},"author":2,"featured_media":41868,"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-91","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":"\nStrZero<\/code>.<\/p>
Fun\u00e7\u00e3o para Adicionar Zeros<\/h2>
function StrZero(Zeros: string; Quant: integer): string;\nvar\n Tamanho: integer;\nbegin\n Tamanho := Length(Zeros);\n if Tamanho < Quant then\n Result := StringOfChar('0', Quant - Tamanho) + Zeros\n else\n Result := Zeros;\nend;\n<\/code><\/pre>
Como Funciona?<\/h2>
Quant<\/code>), adiciona zeros<\/strong> \u00e0 esquerda.<\/li>\n\n
Exemplo de Uso<\/h2>
procedure TForm1.Button1Click(Sender: TObject);\nvar\n Resultado: string;\nbegin\n Resultado := StrZero('123', 6);\n ShowMessage(Resultado); \/\/ Sa\u00edda: 000123\nend;\n<\/code><\/pre>
Benef\u00edcios da Fun\u00e7\u00e3o<\/h2>
StringOfChar<\/code> para efici\u00eancia).<\/li>\n\n