tgenerics.collection Como percorrer uma lista e comparar com os Fieds do Dataset TGenerics.Collection TObjectList<t>

[carlosevania dias]

Boa tarde, Gostaria de uma sugestão dos senhores, sobre como percorrer uma Lista de Objetos.

Estou atualmente fazendo desta forma, Utilizando por Meio do TEnumerator o que achei apropriado devido a facilidade de manipulação, porém não consigo encontrar materiais de referências, Bons para poder Inserir na Lista percorrendo o Dataset e comparando os FieldName, se possível os senhores, alguma sugestão de melhora, ou algum material de referência, que me leve diretamente ao ponto.
Lendo o Manual do RAD, verifiquei a existência do Uso do Bindings TBindAdapterDataset , porém minhas experiências com Live Binding não são excelentes.


Abaixo um exemplo, ilustrando como estou fazendo atualmente.

procedure TContaRecDuplicatas.AfterScroll(Dataset: Tdataset);
  var Itens: TEnumerator<TContaRec>; var Field: TField;  var I: Integer;
begin
  Itens := FModelContaRec.GetEnumerator;

   while Itens.MoveNext do begin
     Itens.Current.ID:= Dataset.FieldByName('ID').AsInteger;
     Itens.Current.DATA:= Dataset.FieldByName('DATA').AsDateTime;
     Itens.Current.HORA:= Dataset.FieldByName('HORA').AsDateTime;
     Itens.Current.USUARIO:= Dataset.FieldByName('USUARIO').AsString;   
   end;
 end;

Editado 29 Agosto, 2017 por carlosevania dias
Faltou informações