Pesquisar na Comunidade
Showing results for tags 'tgenerics.collection '.
Encontrado 1 registro
-
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;