Einzelnen Beitrag anzeigen

HenKst

Registriert seit: 7. Jul 2008
113 Beiträge
 
#20

Re: TStringList "Listindex überschreitet das Maximum&am

  Alt 18. Sep 2008, 14:54
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
narf - not a real function
  Mit Zitat antworten Zitat