Validar Contenido Portapapeles

[[AgustinOrtu]]

Empezado por juniorSoft

Trate de Utilizar

Código Delphi [-]
if value.IsType<.Double> then

pero no funciono

El registro System.Rtti.TValue es un tanto especial, ya que es un "contenedor" de cualquier tipo de datos. Desde objetos, a interfaces, metaclases, punteros, primitivos, otros registros, metodos anonimos..

Ahora bien, dicho "valor" se escribe con un dato de entrada de "cierto tipo", y el metodo IsType<T> lo que hace es comparar el TypeInfo entre lo que le envias como generico y el del valor almacenado.

Un ejemplo practico:

Código PHP:

var
  v: TValue;
begin
  // inicializamos un TValue con un string
  v := TValue.From<string>('1234');

  // la sobrecarga del operador implicito hace posible esta sintaxis tambien
  v := '1234';

  Writeln(v.IsType<string>); // --> True
  Writeln(v.IsType<Integer>); // -- False
end; 


Lo que te quiero decir es que IsType<T> va a comparar por el valor "raw" internamente almacenado. No realiza ninguna conversion ni ninguna validacion, estas comparando el tipo de datos; y tiene logica puesto que un string no es un Integer, por mucho mas que la conversion en este caso fuera posible

[juniorSoft]

Como ultima Interrogante de este caso, sería muy costoso en términos de recursos utilizar el evento onUpdate de la acción para verificar si hay datos en el Portapapeles; en VCL esa acción para el TActionList viene Stadard. Como lo hice funciona bien pero uno siempre trata de hacer las cosas lo mejor que se puede.

Siempre que puedo evito tener que usar este evento para mantener activo/inactivos controles pero en casos como este la opción pegar solo estaría activa si hay algo en el portapapeles y en este caso un número

Definí el OnUpdate de la Acción de la siguiente manera

procedure TFrmCalculadora.AcPegarUpdate(Sender: TObject);
var
Clipboard: IFMXClipboardService;
Valueouble;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,
IInterface(Clipboard)) then
TAction(Sender).Enabled:= TryStrToFloat(Clipboard.GetClipboard.ToString, Value);
end;

Gracias nuevamente AgustinOrtu

[[AgustinOrtu]]

En realidad el evento TAction.OnUpdate es invocado cuando la aplicación está ociosa. Siempre y cuando no hagas cosas que demoren tiempo dentro de estos eventos no habrá problema. Una posible mejora que no tendrá gran impacto en el código es guardar la referencia al servicio del portapapeles e invocar sobre esa referencia el método GetClipboard

No programes tan defensivamente. Si realmente este evento te genera un problema de performance, recién ahí es el momento de optimizar.

[juniorSoft]

Gracias Nuevamente