while anidado para leer una tabla

[Aleca]

disculpen pero ya esta abierto este hilo como sergioperez http://www.clubdelphi.com/foros/showthread.php?t=71943

Código Delphi [-]
  Tabla1.First;
  camposum
  campo := 0;
  while not Tabla1.Eof;
  begin
     if campo = Tabla1Valor1 then
       camposum := camposum + Tabla1ValorASumar
     else
     begin
       Tabla2.Append;
       Tabla2Valor1 := campo;
       Tabla2ValorSumado := camposum;
       Tabla2.Post;
       campo := Tabla1Valor1; camposum :=0;
     end;
     Tabla1.Next;
  end;
  //
  Tabla2.Append;
  Tabla2Valor1 := campo;
  Tabla2ValorSumado := camposum;
  Tabla2.Post;

fijate con algo asi.