4 respuestas en este tema

[enecumene]

Pues eso tengo dos ListBox donde paso información entre ellas --> <--  de acuerdo a un parámetro o contenga alguna palabra, por ejemplo, el siguiente code me sirve para agregar items de un listbox a otro:

delphi

var
  i: Integer;
begin
  if LIPList.Count > 0 then begin
    for i := 0 to LIPList.Count -1 do begin
      if AnsiContainsStr(LIPList.Items.Strings,'CDO') then
        SIPList.Items.Add(LIPList.Items.Strings);
    end; //for i
  end; //IF
end;

La misma me funciona perfectamente, aquí estoy agregando todos los Items que contengan la palabra 'CDO' a otro listbox, se entiende?, mi problema radica en la eliminación de dichos items que contenga la Palabra 'CDO', he hecho lo siguiente:

delphi

var
  i: Integer;
begin
  if SIPList.Items.Count > 0 then begin
    for i := 0 to SIPList.Items.Count -1 do begin
      if AnsiContainsStr(SIPList.Items.Strings,'CDO') then
        SIPList.Items.Delete(SIPList.Items.IndexOf(SIPList.Items.Strings));
    end; //for i
  end; //IF
end;

Pero me lanza el siguiente error:

delphi

---------------------------
Debugger Exception Notification
---------------------------
Project PDownloader.exe raised exception class EStringListError with message 'List index out of bounds (13)'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Así que no veo que estoy haciendo mal pues. 

Saludos.

[Wilson]

delphi

var
  i: Integer;
begin
  if SIPList.Items.Count > 0 then begin
    for i := 0 to SIPList.Items.Count -1 do begin
      if AnsiContainsStr(SIPList.Items.Strings[i],'CDO') then
        SIPList.Items.Delete(i);
    end; //for i
  end; //IF
end;

[egostar]

Estos errorcitos, suelen resolverse volteando a mirar a la luna

delphi

    for i := SIPList.Items.Count -1 downto 0 do 
    begin
    end;

Salud OS

[enecumene]

Estos errorcitos, suelen resolverse volteando a mirar a la luna

delphi

    for i := SIPList.Items.Count -1 downto 0 do 
    begin
    end;

Salud OS

Ah no manches bro, efectivamente esa era la solución , gracias a ambos .

Saludos.

[egostar]

Estos errorcitos, suelen resolverse volteando a mirar a la luna

delphi

    for i := SIPList.Items.Count -1 downto 0 do 
    begin
    end;

Salud OS

Ah no manches bro, efectivamente esa era la solución , gracias a ambos .

Saludos.

Ni te fijes que es un asunto más común de lo que crees

Salud OS