0

Tenho um código que concatena os resultados digitados em edits, estou atribuindo um 0 para cada leitura para os valores fiquem assim:

Resultado: 030/060/090/

Mais quando eu tenho um valor que já tem 3 casas decimais então eu gostaria de manter apenas 3 casas.

Resultado: 030/060/090/0120/

procedure TfrmCadastroPedido.Button1Click(Sender: TObject);
 var
     i: integer;
begin
      //fazer a leitura de componentes edits com um nome especifico
      for i := 0 to ComponentCount - 1 do
      begin

         if (Copy((Components[i].Name),1,7) = 'edPrazo') and (Components[i].Tag = 1) then
         begin
            if TEdit(Components[i]).Text <> '0' then
             begin
                PrazoParcelasNF :=  PrazoParcelasNF + '0' + TEdit(Components[i]).Text  + '/' ;
             end;
         end;
      end;

       Memo1.Lines.Add(PrazoParcelasNF);

end;

1 Resposta 1

2

Basta adicionar :

PrazoParcelasNF :=  PrazoParcelasNF + Format('%3.3d', [StrToInt(TEdit(Components[i]).Text)]) + '/';

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .