mein Vergleichen von Strings --> Bewertung

[alzaimar]

Zitat von BullsEye:

der findet das dann aber nur bei der eingabe von hallo
gebe ich aber welt ein dann findet der dies nicht.

Delphi-Quellcode:

Function IndexOfSubString(Const aSearchStr : String; aList : TStrings) : Integer;
Begin
  For Result := 0 To aList.Count - 1 Do
    If Post (aSearchStr, aList[i])<>0 Then Exit;
  Result := -1
End;