ListBox

Question

Como fa�o para varrer um ListBox item a item e verificar se esse item tem determinado valor, se tiver eu quero apagar este valor e ontinuar o la�o at� o ultimo item da lista... eu fiz o seguinte e nao...

Ronaldo · Answer

Provavelmente seu erro est� no FOR.No lugar de   �for iCont := 1 to iNumItemLista do �tente �for iCont := 0 to iNumItemLista - 1 do �As listas no delphi, normalmente, come�am em zero~....

Marcela · Answer

[quote:9729469408=�Ronaldo�]Provavelmente seu erro est� no FOR.No lugar de   �for iCont := 1 to iNumItemLista do �tente �for iCont := 0 to iNumItemLista - 1 do �As listas no delphi, normalmente, come�am em zero~.[/quote:9729469408]...

Ronaldo · Answer

var iNumItemLista, icont: integer;begin  icont := 0;  while iCont < lbAux.Count do  begin    if Trim(Copy(lbAux.Items[iCont], 18,1)) <> �*� then    begin      lbAux.Items.Delete(iCOnt);      continue;    end    else     inc(icont);  end;Deculpe, eu n�o tinha prestado aten�ao na l�gica que voc� utilizou....

Beppe · Answer

O for n�o recalcula isso. mas voc� poderia ter invertido o sentido do loop que iria funcionar...

Pode ser um while tb:

I := lbAux.Count - 1;                    // come�a do fim :o
while I >= 0 do
begin 
  if lbAux.Items[I][18] <> �*� then
    lbAux.Items.Delete(I); 
  Dec(I); 
end;

Mas um esquema melhor seria este, criando uma nova lista:

var
  T: TStringList;  
  I: Integer;
  S: String;
begin
  T := TStringList.Create;
  try
    for I := 0 to lbAux.Count - 1 do
    begin
      S := lbAux.Items[I];
      if S[18] = �*� then
        T.Add(S); 
    end;
  finally
    lbAux.Items.Clear;
    lbAux.Items.AddStrings(T);
    T.Free;
  end;
end;

S� �testei� de cabe�a, mas acho que dar� certo. Veja qua agora pode ser um for...to...do, j� que a lista original n�o � mexida.

T+

Fabio.hc · Answer

Outra forma poder ser assim:Coloque no listbox a propriedade multselect = true;[code:1:af0a94a801]for iCont := 0 to lbAux-1 do    lbAux.Selected&#91;iCont&93;:=Trim(Copy(lbAux.Items&91;iCont&93;, 18,1)) <> �*�;lbAux.DeleteSelected;[/code:1:af0a94a801]...

F�rum ListBox #213071