Utilizacion del With

[[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 Noteví]

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 Noteví]

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