Melhoria na function GetOcorrenciasRemessa

[Giovani Da Cruz]

Olá pessoal!

Estava analisando a função function GetOcorrenciasRemessa da unit acbr boleto, gostaria se saber se há possibilidades de

deixar a mesma como class function como segue

class function TACBrBoleto.GetOcorrenciasRemessa: TACBrOcorrenciasRemessa;
var I: Integer;
begin
  SetLength(Result, 41);

  for I:= 1 to 41 do
  begin
    Result[I-1].Tipo := TACBrTipoOcorrencia(I-1);
    Result[I-1].descricao := cACBrTipoOcorrenciaDecricao[I-1];
  end;
end;

 

Assim se torna possível o uso da função se precisar instanciar um objeto.

 

Desde já agradeço o retorno.

[Juliana Tamizou]

Boa tarde.

Não entendi exatamente quando seria útil esta alteração.

Att.

[Giovani Da Cruz]

 

Seguinte, poderia carregar a lista de ocorrências, sem ter que instanciar um objeto.

 

Exemplo:

procedure TFrmRemessaCadastro.Button1Click(Sender: TObject);
var
  I: Integer;
  vList : TACBrOcorrenciasRemessa;
begin
  vList := TACBrBoleto.GetOcorrenciasRemessa();

  ComboOcorrencia.Clear;
  for I := Low(vList) to High(vList) do
  begin
    ComboOcorrencia.Items.Add(vList[I].Descricao);

    ComboOcorrencia.Values.Add(GetEnumName(TypeInfo(TACBrTipoOcorrencia),
    Integer(vList[I].Tipo)));
  end;
end;

 

[netsoftclaudio]

Olá Giovani,

Gostaria de listar as ocorrencias do tipo remessa e colocar em um combobox mas não estou conseguindo.

Copiei seu exemplo, mas não está dando certo, vc saberia me dizer o porque?

procedure TFrmRemessaCadastro.Button1Click(Sender: TObject);
var
  I: Integer;
  vList : TACBrOcorrenciasRemessa;
begin
  vList := TACBrBoleto.GetOcorrenciasRemessa();

  ComboOcorrencia.Clear;
  for I := Low(vList) to High(vList) do
  begin
    ComboOcorrencia.Items.Add(vList[I].Descricao);

    ComboOcorrencia.Values.Add(GetEnumName(TypeInfo(TACBrTipoOcorrencia),
    Integer(vList[I].Tipo)));
  end;
end;