Limpiar TComboBox

[LACV]

Buen dia estoy intentando limpiar todos los TComboBox de un formulario con un procedimiento pero me arroja un error y no limpia la seleccion.

procedure TFrmHome.LimpiarCombo(formulario2: TForm);
var
i, tamano: integer;
begin
tamano := formulario2.ComponentCount;
for i := 0 to tamano - 1 do
if (formulario2.Components[i] is TEdit) then
begin
TComboBox(formulario2.Components[i]).ClearSelection;
end;
end;



LimpiarCombo(Self);


gracias de antemano

[movorack]

Buen dia estoy intentando limpiar todos los TComboBox de un formulario con un procedimiento pero me arroja un error y no limpia la seleccion.

procedure TFrmHome.LimpiarCombo(formulario2: TForm);
var
i, tamano: integer;
begin
tamano := formulario2.ComponentCount;
for i := 0 to tamano - 1 do
if (formulario2.Components[i] is TEdit) then
begin
TComboBox(formulario2.Components[i]).ClearSelection;
end;
end;



LimpiarCombo(Self);


gracias de antemano

Estás validando que el componente sea un TEdit y luego fuerzas el cast para usarlo como TComboBox. Y si bien el TComboBox tiene el procedimiento ClearSelection, el TEdit no!

[Caminante]

Hola

Me parece mas rapido asignar -1 a la propiedad itemindex o '' a su propiedad text.

Saludos

[LACV]

Estás validando que el componente sea un TEdit y luego fuerzas el cast para usarlo como TComboBox. Y si bien el TComboBox tiene el procedimiento ClearSelection, el TEdit no!
Viejo gracias la verdad no me avia fijado de ese error tan infantil estaba cerrado mil gracias