Suchfunktion

[himitsu]

Zitat:

Delphi-Quellcode:

     For I2 := 0 to TS.Count-1 do
      Begin
       If (I2 = 0) or (I2 = TS.Count) then

Hab jetzt nicht alles angesehn, aber (I2 = TS.Count) wird niemals treffen.
Meinst bestimmt TS.Count-1 ?

Hier fehlt If length(S) > 0 then TS.Add(S); das UpperCase, wobei man das auch gleich nur einmal beim S:=UpperCase(...) erledigen könnte, anstatt mehrmals nachträglich.

So richtig verseh ich auch nicht, warum du die mittleren Suchwörter anders suchst, als das Erste und Letzte.

Wenn auch Umlaute vorkommen können, dann besser AnsiUpperCase statt UpperCase verwenden, denn Letzeres arbeitet nur mit ASCII-Zeichen, also ausschließlich für A-Z.


Nur als zusätzliche Tipps:
Das If (I2 > 0) and (I2 < TS.Count) then soll doch wohl ein ELSE sein?
Und der Code zum Zerteilen der Suchwörter -> SplitString oder TStringList.DelimitedText mit Delimiter=' ' und StrictDelimiter=True (Delimiter und StrictDelimiter könnte man hier notfalls auch auf Default stehen lassen).

Warum graufst du hier eigentlich ständig auf Form1 zu? Ist das etwa keine Methode von TForm1?