Ver Mensaje Individual
  #2  
Antiguo 19-06-2014
elrayo76 elrayo76 is offline
Miembro
 
Registrado: ene 2004
Ubicación: En la tierra, por eso mis archivos en la tierra y no en la nuebe...
Posts: 291
Reputación: 21
elrayo76 Va por buen camino
Gente, pude hacer lo que necesitaba. Para el que le sirva acá dejo la función que he implementado.

El parámetro de la posición que saco a fuera de la función es proque luego selecciono la fila que me interesa con lo encontrado. El resultado de la función es para indicar si se encontró o no el dato buscado.

Código Delphi [-]
function BuscarEnLista(const aLista: ListView; const aColumna: Integer; const aValor: String; var aPosicion: Integer): Boolean; overload;
var
  i: Integer;
  intItem: Integer;

begin
  i := 0;
  intItem := -1;

  while (i < aLista.items.Count) do
  begin
    if (aLista.Items[i].SubItems[aColumna].Text = aValor) and (StrToInt(aLista.Items[i].SubItems[_lv_Cantidad].Text) <> 0) then
    begin
      intItem := i;
      i := aLista.Items.Count;
    end;

    Inc(i);
  end;

  aPosicion := intItem;
  Result := (intItem <> -1);
end;


Saludos,
El Rayo
__________________
Si tienes una función o procedimiento con diez parámetros, probablemente hayas olvidado uno
Responder Con Cita