Utilizacion del With

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

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

[Casimiro Noteví]

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.