[[gatosoft]]

Empezado por Al González

Con las variables in-line, nos encaminamos a una políticamente sana extinción del With:

Código Delphi [-]
  // ...
  Var OKButton := GetMySpecialForm.FindComponent ('btnOK');

  If OKButton <> Nil Then
  Begin
    TButton (OKButton).Click;
    OKButton.Enabled := System.False;
  End;
End;

En todo caso, podríamos incluir una nueva palabra reservada de uso similar (pero seguro) al del With, como por ejemplo Using:

Código Delphi [-]
  // ...
  Using GetMySpecialForm.FindComponent ('btnOK') Do
    If It <> Nil Then  // "It", variable implícita y de uso obligado dentro del bloque Using.
    Begin
      TButton (It).Click;
      It.Enabled := System.False;
    End;
End;

Un abrazo propuesto.

Al González.

De acuerdo con esta, una variante mejorada (creo yo) al "Ditto mark" que proponias en otros foros...