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;