Excluir algo dentro de un bucle with do ...

[[gluglu]]

Hola amigos !

Hay manera de 'excluir' algo de ser considerado dentro de un bucle With ... do ... ?

Código Delphi [-]
with IBDataSet1 do begin
  SelectSQL.Clear;
  SelectSQL.Add(' ..... ')
  ...
  ParamByName('Val1').Value := TForm1(Owner).IBDataSet2CAMPO.Value;
  ...
end;

Resulta que no me lo hace bien porque al parecer aplica IBDataSet1 del bucle también a TForm1(Owner).IBDataSet2CAMPO.Value

Por eso pregunto si ese bloque en concreto lo puedo 'excluir' de ser considerado como parte a componer junto con IBDataSet1. O lo que tengo que hacer es prescindir de usar with .. do begin ... end

[[egostar]]

Me parece curioso que uses los IBDataSetN en las formas, porque no los pones en un DataModule.

Independientemente de eso, no deberia de ser ya que son diferentes IBDataSet1 que IBDataSet2.

In the middle time, haré una replica de lo que haces para ver si puedo reproducir el asunto.

Saludos.

[[gluglu]]

Gracias Egostar.

El tema viene de otros varios hilos. No uso el DataModule (en esta parte de mi programa) según lo que explico aqui y aparte creo varias instancias de forms, según se explica aqui.

Ello me obliga a utilizar las instrucciones que he expuesto. Y después me he dado cuenta que me daba error si utilizo mi manera normal de codificar con los bucles 'with do' por lo que comento.

Ya sé que es raro, pero es que se me ha dado ese caso y de hecho me ha costado un poco encontrar el por qué me daba error en ese bucle, hasta que me dí cuenta que aplica el 'objeto' del bucle do with también a mi instrucción que va dentro del bucle y que no se debería de ver afectada.

[[seoane]]

Y si pruebas a poner Self.Owner en vez de Owner

[[gluglu]]

Gracias Domingo !!!

Eres un MONSTRUO !! Poco más se puede decir.

Funciona perfecto.