TStringList "Listindex überschreitet das Maximum"

[HenKst]

aachsoo

folgende Anregung

Delphi-Quellcode:

if cb_search.Checked then begin
  for ii := 0 to Foriginal.Count-1 do begin
    machwas mit der grossen liste
  end;
 end else begin
  for ii := 0 to Fselect.Count-1 do begin
    mach was mit der kleinen liste
  end;
end;

wenn die checkbox gechecht ist durchsucht das die FOriginal liste, wenn nicht die FSelect liste.
Zwei Schleifen sind zwar mehr code aber einfacher zu debugen

€dit
Okay "=true" is raus^^

nochn €dit
hast recht DaddyH
ne Unterprozedur der du die entsprechende Liste übergibst wäre noch schöner