Cita:
Empezado por gatosoft
[...]Imagino a Al Gonzalez a la espera de que su propuesta de mejorar el WITH sea acogida[...]
|
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 Begin
TButton (It).Click;
It.Enabled := System.False;
End;
End;
Un abrazo propuesto.
Al González.