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.