Foros Club Delphi - Limpiar TComboBox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Limpiar TComboBox (https://www.clubdelphi.com/foros/showthread.php?t=95074)

LACV	15-02-2021 14:04:40

Limpiar TComboBox

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

15-02-2021 14:11:14

Cita:

Empezado por LACV (Mensaje 540050)

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

15-02-2021 15:05:28

Hola

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

Saludos

LACV	15-02-2021 15:42:50

Cita:

Empezado por movorack (Mensaje 540051)

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

La franja horaria es GMT +2. Ahora son las 04:05:47.