Aliquotas num Memo

[lucasbelkys]

Alguém saberia como jogar as aliquotas do ECF num componente TMEmo ?

Obrigado.

[lampada]

for i:=0 to ACBRECF.Aliquotas.count -1 do

begin

   Memo1.add(FormatFloat('#0.00',ACBRECF.Aliquotas[i].Aliquota))

end;

[Daniel Simoes]

Estude os fontes do projeto Demo... Está tudo lá... veja:

procedure TForm1.AliquotasICMS1Click(Sender: TObject);

var A : Integer ;

begin

  ACBrECF1.CarregaAliquotas ;


  for A := 0 to ACBrECF1.Aliquotas.Count -1 do

  begin

     mResp.Lines.Add( 'Aliquota: '+IntToStrZero( ACBrECF1.Aliquotas[A].Sequencia,2)+

                      ' Indice: '+ACBrECF1.Aliquotas[A].Indice +' -> '+

                      FloatToStr( ACBrECF1.Aliquotas[A].Aliquota ) + ' Tipo: '+

                      ACBrECF1.Aliquotas[A].Tipo );

  end ;

  mResp.Lines.Add('---------------------------------');

end;

[/code]

[lucasbelkys]

Obrigado Lâmpada, obrigado Daniel.

[MODERAÇÃO] Tópicos fundidos.