Optimizar con Case XXX of

[jg_gutierrez]

si lo que quirees en hacer validaciones dependiento el tipo de objeto, este procedimiento les puede ser muy util.

Para este ejemplo yo lo uso para limpiar todos los objetos en un form, y yo especifico que objetos quiero validar, pero usando tag se pueden implementar otras utilizaciones.

Código Delphi [-]
procedure Tform1.Blank_Screen;
var
   i: Word;
begin
   for i := 0 to self.ComponentCount - 1 do
   begin
      if (self.Components[i] is TEdit) then
         TEdit(self.Components[i]).text := '';
      if (self.Components[i] is TMemo) then
         TMemo(self.Components[i]).text := '';
      if (self.Components[i] is TDateEdit) then
         TDateEdit(self.Components[i]).text := '';
      if (self.Components[i] is TDBLookupComboboxEh) then
         TDBLookupComboboxEh(self.Components[i]).text := '';
      if (self.Components[i] is TRxCalcEdit) then
         TRxCalcEdit(self.Components[i]).text := '';
      if (self.Components[i] is TCurrencyEdit) then
         TCurrencyEdit(self.Components[i]).text := '';
   end;
end;