Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Función para buscar elemento en ListBox Delphi
Lenguaje de programación Borland Delphi


Función que busca un elemento en un ListBox, si lo encuentra devuelve la posición donde lo ha encontrado, si no lo encuentra (no existe) devuelve -1. Esta función es útil para, por ejemplo, impedir que se repitan valores en un ListBox.


function existeElementoListBox (elemento : string; lista : TListBox) : integer;
var
  i : integer;
begin
  existeElementoListBox := -1;

  for i := 0 to lista.Count - 1 do
  begin
    if AnsiUpperCase (lista.items[i]) = AnsiUpperCase (elemento) then
    begin
      existeElementoListBox := i;
      Exit;
    end;
  end;
end;
Un ejemplo de uso:
procedure TformEnvioEmail.btAdjuntarClick(Sender: TObject);
begin
  if dlSelAdjunto.execute then
  begin
    if existeElementoListBox(dlSelAdjunto.FileName, lFicherosAdjuntos) = -1 then
    begin
      lFicherosAdjuntos.items.add (dlSelAdjunto.filename);
      tamanoFicherosAdjuntos;
    end
    else
      MessageDlg('Ya ha adjuntado este fichero.', mtInformation, [mbok], 0);
  end;
end;
En el USES de la unidad habría que añadir: StdCtrls, SysUtils.




Publicado el: 2012-11-26

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+