Magno , vc poderia disponibilizar a unit com o IDataSetItator ?
O link informando já não existe mais.
Valeu!

Ao invés de gastarem a energia (pouca) que resta na CodeGear fazendo por exemplo uma RTTI mais poderosa, fizeram isto aí… lamentável.

Primeiro ponto: pouca energia? Cá entre nós, entre o D2006 e o D2009 se corrigiu mais erros novos e antigos do que entre 1995 e 2002… Desde que os profissionais tomaram conta de si mesmos, nunca se viu tanto qc# sendo resolvido. Isso, para mim, é sinal de MUITA energia.

Segundo: anom methods (em alguns lugares, closures) são base para um sem-número de outras features possíveis. Creio que seja esta a causa deles já terem sido implementados.

“Good code is its own best documentation. As you’re about to add
a comment, ask yourself, ‘How can I improve the code so that
this comment isn’t needed?’ Improve the code and then document
it to make it even clearer.” — Steve McConnell Code Complete

99% das implementações usando métodos anônimos em Delphi que vi até hoje diziam assim em sua primeira linha (Parafraseando Obama):

// YES WE CAN!

Ou seja… Sempre fizemos, nunca foi impecílio, só que agora tem uma forma mais estranha de fazer que permite construções realmente bizarras, tipo, uma chamada a um método que se estende por 100 linhas, com 3 ou 4 outros métodos sendo passado como parâmetros…

Ao invés de gastarem a energia (pouca) que resta na CodeGear fazendo por exemplo uma RTTI mais poderosa, fizeram isto aí… lamentável.

Best regards.

Comecei a estudar estes metódos anônimos há alguns dias e como não gosto muito desta bagunça que eles trouxeram, encapsulei os métodos em procedures separadas, que por motivos transacionais, utilizam parâmetros do tipo TCustomConnection. No mesmo exemplo do ForEach, eu tenho uma procedure que executa diversas operações transacionais utilizando ADODataSets e kbmMemTables.

Sei que os exemplos abaixo ficarão confusos, mas foi só para demonstrar como acabei precisando implementar uma TConnectionProc;

– DataSet, geralmente eu passo uma kbmMemTable.
– ConnectionProc, é uma procedure que possui TCustomConnection como parâmetro.
– Connection, é o mesmo parâmetro utilizado em ConnectionProc, porém não consegui fazer de outro modo. Este TCustomConnection vem do ADODataSet de onde foram importados os dados para a kbmMemTable, porém como a kbmMemTable não possui a propriedade Connection nativa, preciso passar o parâmetro da ADODataSet.Connection para dentro desta função via parâmetro mesmo.

Finalmente, acabei precisando fazer o seguinte:

TConnectionProc = procedure(Connection: TCustomConnection) of Object;

procedure ForEach(DataSet: TDataSet; ConnectionProc: TConnectionProc; Connection: TCustomConnection);
var
bmPos: TBookmark;
begin
with DataSet do
begin
try
DisableControls;
bmPos := Bookmark;
First;

while not Eof do
begin
ConnectionProc( Connection );
Next;
end;

finally
BookMark := bmPos;
EnableControls;
end;
end;
end;

procedure ReservaOSPecasAplicadas(Conexao: TCustomConnection);
begin
(…)
end;

procedure GravaDadosGravacao;
var
Conexao: TCustomConnection;
ConnectionProc: TConnectionProc;
begin
( … )
ConnectionProc := ReservaOSPecasAplicadas;
DMP.ForEach( kbmOSServicoLaboratPecasAplicadas, ConnectionProc, Conexao );
(…)
end;

type
TProcFieldsDataSet = reference to procedure(RecNo : integer; Fields : TFields);

// método

procedure ForeachInDataSets(DataSet : TDataSet; ProcFieldsDataSet : TProcFieldsDataSet);
begin
DataSet.DisableControls;

try
DataSet.First;

while not DataSet.Eof do
begin
ProcFieldsDataSet(DataSet.RecNo, DataSet.Fields);
DataSet.Next;
end;

finally
DataSet.EnableControls;
end;
end;

// Exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
Soma : Currency;
begin
Soma := 0;

// Considerando que em ClientDataSet1 tem um campo chamado Valor

ForeachInDataSets(ClientDataSet1, procedure(RecNo : integer; Fields : TFields)
begin
Soma := Soma + Fields.FieldByName(‘VALOR’).AsCurrency;
end);

ShowMessage(CurrtoStr(Soma));
end;