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;

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;

Publicado el: 2012-11-26