listboxitem überschreitet das maximum(0)

[Pseudemys Nelsoni]

ich möchte in einer list box alle items löschen, bis es "<select name="kick_mem">" enthält.

habe es mir so gedacht:

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);
begin
  while Pos('<select name="kick_mem">', Listbox1.Items.Strings[0]) < 1 do
  listbox1.Items.Delete(0);
end;

aber wieso der fehler?

[Alibi]

Das geht schief, wenn kein Element mit dem Suchtext vorhanden ist.
Erst überprüfen, ob überhaupt noch Items drin sind, dann gucken, ob beim nächsten der Suchstring da ist:

Delphi-Quellcode:

  while (ListBox1.Items.Count > 0) and
        (Pos('<select name="kick_mem">', Listbox1.Items.Strings[0]) < 1)do
    listbox1.Items.Delete(0);

[Christian Seehase]

Moin Silent,

sollte es trotz Alibis Tip noch zu dem Fehler kommen, so musst Du mal unter "Projekt\Optionen\Compiler" im Block Syntaxoptionen die CheckBox "Complete Boolean Eval" kontrollieren.
Die darf nicht aktiviert sein. Ist sie zwar standardmässig auch nicht, aber wer weiss ;-)