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.

Código Delphi [-]
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;

Código Delphi [-]
LimpiarCombo(Self);

gracias de antemano

[[movorack]]

Empezado por 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.

Código Delphi [-]
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;

Código Delphi [-]
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]

Empezado por movorack

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