Asunto: Función que compruebe si existe un elemento en un combobox
Necesito insertar en un TComboBox varios elementos, lo que quiero es que no se repitan ¿cómo puedo hacer una función que me compruebe si un elemento existe ya en el desplegable de un ComboBox?
Publicado:
Mie May 05, 2010 9:52 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Función que compruebe si existe un elemento en un combob
Anuncios
varios escribió:
Necesito insertar en un TComboBox varios elementos, lo que quiero es que no se repitan ¿cómo puedo hacer una función que me compruebe si un elemento existe ya en el desplegable de un ComboBox?
Puedes utilizar una función parecida a la siguiente, que devuelve True si ha encontrado el elemento y False si no lo ha encontrado:
Código:
function buscarElementoComboBox (
combo : TComboBox; elemento : string) : boolean;
var
i : integer;
begin
Result := false;
for i := 0 to combo.Items.Count - 1 do
begin
if AnsiUpperCase(combo.Items[i]) = AnsiUpperCase(elemento) then
begin
Result := true;
Exit;
end;
end;
end;
Un ejemplo de uso de esta función sería:
Código:
if ping(txtIP.Text) then
begin
if not buscarElementoComboBox(txtIP, txtIP.Text) then
txtIP.Items.Add (txtIP.Text);
Donde "txtIP" es un componente de tipo TComboBox existente en el formulario.
Publicado:
Mie May 05, 2010 9:54 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Función que compruebe si existe un elemento en un combob
Anuncios
En el siguiente enlace tienes una aplicación de ejemplo AjpdSoft Ping ICMP con código fuente (source code) gratuito descargable desde esta web para realizar ping a equipos de la red:
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A