Utilizacion del With

[lgarcia]

Hola:
Tengo una duda porque siempre estube programando con Delphi 7 y recientemente he estado incursionando en Delphi y C++ XE2 y en D7 en el codigo uno podia poner una sintasis como esta para una simple consulta a un BD:

Código Delphi [-]
with Prueba do
begin
  Close;
  Open;
end;

y estuve buscando en la ayuda de ambos y no lo vi. Aunque el Delphi XE2 cuando compila, no lo muestra como error el C++ si. Es que esa expresion caduco o es que hay algo que lo sustituyo, porque la expresion with ahorraba buena cantidad de codigo.

Saludos
Luis Garcia

[[gatosoft]]

Hola Luis,

Hasta donde se, no ha caducado. No veo un por qué. Sin embargo siempre se ha advertido sobre el cuidado de utilizarlo pues podría generar ambiguedades que no advierte el compilador (warnings)

Te dejo este enlace

saludo,

[[AgustinOrtu]]

Nunca uses with, te vas a ahorrar un millardo de problemas

[[Al González]]

Yo también considero que el With actual es muy nocivo si no se utiliza responsablemente, hay que tratar de evitarlo. Pero les recomiendo leer mi respuesta en la discusión enlazada por gatosoft:

Empezado por gatosoft

Te dejo este enlace

Aparece hasta el final.

Saludos.

[lgarcia]

Voy a mirar el enlace y muchas gracias por sus comentarios.

Saludos
Luis Garcia

[ecfisa]

Hola lgarcia.

Empezado por lgarcia

...
Aunque el Delphi XE2 cuando compila, no lo muestra como error el C++ si.
...

Lo último que mencionas es totalmente normal y de esperar; ya que C++ no posee un comando equivalente al with de Delphi, que como bién te han comentado hay que usar con cuidado.

Saludos

[[nlsgarcia]]

lgarcia,

Empezado por lgarcia

...Utilizacion del With...

Adicionalmente a todo lo mencionado, te sugiero revisar esta información referente al uso de la sentencia With:

Extraño caso al evaluar una condición

Espero sea útil

Nelson.

[Neftali [Germán.Estévez]]

Si fuera por mi, habría que prohibirlo directamente...

[Casimiro Notevi]

Empezado por Neftali

Si fuera por mi, habría que prohibirlo directamente...

Yo nunca lo uso.

[Caminante]

Empezado por Neftali

Si fuera por mi, habría que prohibirlo directamente...

Pues yo si suelo utilizarlo aunque, como ya se dijo, teniendo cuidado. Nunca anido sentencias with.

Saludos

[olbeup]

Yo utilizo with continuamente ya que me ahorra mucho código y, nunca he tenido ningún problema.

He combinado with con dos componentes a la vez, TEdit y TStaticText y sin problema aparente y, aún lo sigo utilizando por la gran cantidad de código que me ahorro.

Si sabes utilizarlo y sabes cuales son sus beneficios y perjuicios, utilízalo en beneficio tuyo.

Un saludo.

[Neftali [Germán.Estévez]]

No digo que se no sea útil y ahorre tiempo, pero eso provoca que el código sea menos claro y más difícil de debuggar.
por ende más propenso a errores.
Y esas son dos cosas que para mi tienen suma importancia, la claridad y la seguridad en cuanto a fallos.

[[AgustinOrtu]]

Si mal no recuerdo lo lei en StackOverflow. Pero seamos sinceros, el with lo usamos porque a veces tenemos declaradas variables (bueno mas que variables, componentes) asi:

Código Delphi [-]
 { TFormX Private Declarations } 
  Tabla_Registro_Historico_Ventas: TADOQuery;

..
procedure HacerAlgoConLaTabla;
begin
  // esto es realmente tedioso
  if not(Tabla_Registro_Historico_Ventas.Active) then
    Tabla_Registro_Historico_Ventas.Open;

  Tabla_Registro_Historico_Ventas.Edit;
  Tabla_Registro_Historico_Ventas.FieldByName('Apellidos_Y_Nombres_Cliente').AsString := 
                                               Tabla_Registro_Historico_Ventas.FieldByName('Apellido').AsString + ', ' + 
                                               Tabla_Registro_Historico_Ventas.FieldByName('Nombres').AsString
  Tabla_Registro_Historico_Ventas.Post;
end;

procedure MasFacil;
var
  t: TADOQuery;
begin
  t := Tabla_Registro_Historico_Ventas;
  // esto es mucho mas amigable 
  if not(t .Active) then
    t .Open;

  t .Edit;
  t .FieldByName('Apellidos_Y_Nombres_Cliente').AsString := t .FieldByName('Apellidos').AsString + ', ' + t.FieldByName('Nombres').AsString 
  t .Post;
end;

[Neftali [Germán.Estévez]]

Justamente lo segundo es lo ideal.

(1) La declaración de componentes es clara.
(2) Escribimos lo mínimo posible.
(3) El debug y seguimiento es claro y sin errores.

[olbeup]

Código Delphi [-]
 { TFormX Private Declarations } 
  Tabla_Registro_Historico_Ventas: TADOQuery;

..
procedure HacerAlgoConLaTabla;
begin
  // esto es realmente tedioso
  if not(Tabla_Registro_Historico_Ventas.Active) then
    Tabla_Registro_Historico_Ventas.Open;

  Tabla_Registro_Historico_Ventas.Edit;
  Tabla_Registro_Historico_Ventas.FieldByName('Apellidos_Y_Nombres_Cliente').AsString := 
                                               Tabla_Registro_Historico_Ventas.FieldByName('Apellido').AsString + ', ' + 
                                               Tabla_Registro_Historico_Ventas.FieldByName('Nombres').AsString
  Tabla_Registro_Historico_Ventas.Post;
end;

procedure OtraForma;
begin
  // esto también puede ser
  with Tabla_Registro_Historico_Ventas do
  begin
    if (not Active) then
      Open;

    Edit;

    FieldByName('Apellidos_Y_Nombres_Cliente').AsString :=
      FieldByName('Apellido').AsString + ', ' + 
      FieldByName('Nombres').AsString;

    Post;
  end;
end;

procedure OtraMas;
var
  FadoCnn: TADOConnection;
begin
  FadoCnn := TADOConnection.Create(nil);
    FadoCnn.LoginPrompt := False;
    FadoCnn.ConnectionString := ;

  with TADOQuery.Create(nil) do
  begin
    Connection := FadoCnn;

    SQL.Add('SELECT');
    SQL.Add('    Apellidos_Y_Nombres_Cliente');
    SQL.Add('    ,Apellido');
    SQL.Add('    ,Nombres');
    SQL.Add('  FROM Clientes');

    Open;
    
    Edit;

    FieldByName('Apellidos_Y_Nombres_Cliente').AsString :=
      FieldByName('Apellido').AsString + ', ' + 
      FieldByName('Nombres').AsString;

    Post;

    FadoCnn.Free;
    Free;
  end;
end;

Para gustos los colores.

Un saludo.

[Casimiro Notevi]

Empezado por olbeup

Para gustos los colores.

No es cuestión de gustos

[olbeup]

Empezado por Casimiro Notevi

No es cuestión de gustos

Bueno, yo lo utilizo bastante por no decir siempre y me va muy bien.

Un saludo.

[Casimiro Notevi]

Empezado por olbeup

Bueno, yo lo utilizo bastante por no decir siempre y me va muy bien.

Bueno, yo no lo utilizo nunca y también me va muy bien

[ecfisa]

Empezado por olbeup

Bueno, yo lo utilizo bastante por no decir siempre y me va muy bien...

Empezado por Casimiro Notevi

Bueno, yo no lo utilizo nunca y también me va muy bien...

Moraleja: El uso u omisión de la sentencia with no afecta en absoluto el progreso personal.

Saludos

[[nlsgarcia]]

Daniel,

Empezado por ecfisa

...El uso u omisión de la sentencia with no afecta en absoluto el progreso personal...

Nelson.