"Pos" findet String wegen Einrückung nicht

[uligerhardt]

...aber bitte mit try-finally wie in Post 2!

[Jumpy]

Irgendwie kommt mir das aber alles unsauber vor. Wieso wird die Stringlist 2x erzeugt und frei gegeben, das passt doch alles nicht.

Delphi-Quellcode:

var
  sList: TStringList;
  Index: integer;
begin
  Result := -1;
  sList := TStringList.Create;
  try
    sList.LoadFromFile(FileName);
    for Index := 0 to sList.Count-1 do
      begin
       if Pos(SearchText, sList.Strings[Index]) <> 0 then
         begin
           Result := Index;
           Break; 
         end
       end;

    //Das Folgende hab ich mal drin gelassen, aber eigentlich
    //gehört das z.B. in die aufrufende Prozedur verlagert
    if Result=-1 then
      ShowMessage('Einstiegspunkt wurde nicht gefunden.');

  finally
    sList.Free;
  end;
end;

[Whookie]

Da ist eindeutig ein TStringList.Create/.Free zuviel drin!

So müsste das aussehen (nicht getestet):

Delphi-Quellcode:

begin
  Result := -1;
  sList := TStringList.Create;
  try
    LTst := LowerCase(Trim(SearchText));
    for i := 0 to sList.Count-1 do
    begin
      if Pos(LTst, LowerCase(sList[i])) > 0 then
      begin
        Result := i;
        Break;
      end;
    end;
  finally
    sList.Free;
  end;
  //
  If Result < 0 then
    ShowMessage('Einstiegspunkt wurde nicht gefunden.'); 
end;

[himitsu]

PS: Pos gibt 'ne Position zurück, aber was du eigentlich machen willst ist ContainsStr, oder eventuell auch mal ContainsText.

Zitat:

 if Pos(LTst, LowerCase(sList[i])) >= 0 then

Und Pos ist immer >= 0.

0, wenn nichts gefunden,
und 1, wenn doch, da 1-basierender Index.

Bei IndexOf isses natürlich anders, denn
-1, wenn nichts gefunden,
und 0, wenn doch, da 0-basierender Index.