"Pos" findet String wegen Einrückung nicht

[Jim Carrey]

Käme Trim() für dich in Frage?

if Pos(SearchText, Trim(sList.Strings[Index])) > 0 then

[Jumpy]

Ich würde bei einer verschönerten Variante der ersten geposteten Funktion bleiben und Pos benutzen. Das IndexOf funktioniert in dem von die beschriebenen Szenario nicht.

[Freyr77]

Zitat von Jumpy:

Ich würde bei einer verschönerten Variante der ersten geposteten Funktion bleiben und Pos benutzen. Das IndexOf funktioniert in dem von die beschriebenen Szenario nicht.

Alles klar, danke. Ich bin jetzt auch zu POS umgestiegen. Allerdings funktioniert keine Trim Variante.

[Jim Carrey]

Zitat von Freyr77:

Alles klar, danke. Ich bin jetzt auch zu POS umgestiegen. Allerdings funktioniert keine Trim Variante.

Zeig doch mal deine Varianten.

[Jasocul]

Delphi-Quellcode:

var
   sList: TStringList;
   Index: integer;

begin
   sList := TStringList.Create;

   Result := -1;
   sList := TStringList.Create;
   sList.LoadFromFile(FileName);
//   for Index := 0 to sList.Count do // Falsch
   for Index := 0 to sList.Count-1 do
     if Pos(SearchText, sList.Strings[Index]) > 0 then
     begin
       Result := Index;
       sList.Free;
       Exit;
     end
     else
       ShowMessage('Einstiegspunkt wurde nicht gefunden.');
   sList.Free;
end;

Also, wenn der Suchbegriff erst in der zweiten Zeile steht, klappt das schon nicht mehr.
Deswegen bist du auch der Meinung, dass IndexOf besser funktioniert. Aber dort bekommst du Probleme, wenn du mit Einrückungen (führenden Leerzeichen) arbeitest.

Meine Prüfung sähe so aus, wenn ich deinen Stil beibehalte:

Delphi-Quellcode:

var
   sList: TStringList;
   Index: integer;

begin
   sList := TStringList.Create;

   Result := -1;
   sList := TStringList.Create;
   sList.LoadFromFile(FileName);
   for Index := 0 to sList.Count-1 do
     if Pos(SearchText, sList.Strings[Index]) > 0 then
     begin
       Result := Index;
       sList.Free;
       //Exit; Das ist natürlich falsch
       Break;
   sList.Free;
   if Result = -1 then
     ShowMessage('Einstiegspunkt wurde nicht gefunden.');
end;

Der Unterschied ist, dass ich nicht in der Schleife prüfe, ob der Einstiegspunkt falsch ist, sondern nach der Schleife prüfe, ob ein gültiges Ergebnis vorliegt.

[Freyr77]

Zitat von Jasocul:

Delphi-Quellcode:

var
   sList: TStringList;
   Index: integer;

begin
   sList := TStringList.Create;

   Result := -1;
   sList := TStringList.Create;
   sList.LoadFromFile(FileName);
//   for Index := 0 to sList.Count do // Falsch
   for Index := 0 to sList.Count-1 do
     if Pos(SearchText, sList.Strings[Index]) > 0 then
     begin
       Result := Index;
       sList.Free;
       Exit;
     end
     else
       ShowMessage('Einstiegspunkt wurde nicht gefunden.');
   sList.Free;
end;

Also, wenn der Suchbegriff erst in der zweiten Zeile steht, klappt das schon nicht mehr.
Deswegen bist du auch der Meinung, dass IndexOf besser funktioniert. Aber dort bekommst du Probleme, wenn du mit Einrückungen (führenden Leerzeichen) arbeitest.

Meine Prüfung sähe so aus, wenn ich deinen Stil beibehalte:

Delphi-Quellcode:

var
   sList: TStringList;
   Index: integer;

begin
   sList := TStringList.Create;

   Result := -1;
   sList := TStringList.Create;
   sList.LoadFromFile(FileName);
   for Index := 0 to sList.Count-1 do
     if Pos(SearchText, sList.Strings[Index]) > 0 then
     begin
       Result := Index;
       sList.Free;
       Exit;
   sList.Free;
   if Result = -1 then
     ShowMessage('Einstiegspunkt wurde nicht gefunden.');
end;

Der Unterschied ist, dass ich nicht in der Schleife prüfe, ob der Einstiegspunkt falsch ist, sondern nach der Schleife prüfe, ob ein gültiges Ergebnis vorliegt.

Genau auf diesen blöden Fehler von mir bin ich gerade auch gestoßen. Jetzt funktioniert es.

Sieht bei mir jetzt so aus:

Delphi-Quellcode:

var
  sList: TStringList;
  Index: integer;

begin
  sList := TStringList.Create;

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

      ShowMessage('Einstiegspunkt wurde nicht gefunden.');
      sList.Free;
end;

Danke an alle.

[Jasocul]

Ändere das bitte noch so:

Delphi-Quellcode:

var
   sList: TStringList;
   Index: integer;

begin
   sList := TStringList.Create;

     Result := -1;
     sList := TStringList.Create;
     sList.LoadFromFile(FileName);
//     for Index := 0 to sList.Count do Das ist auch falsch
     for Index := 0 to sList.Count-1 do
     begin
       if Pos(SearchText, sList.Strings[Index]) <> 0 then
       begin
         Result := Index;
         sList.Free;
         Break; // Nicht Exit!
       end
     end;

       ShowMessage('Einstiegspunkt wurde nicht gefunden.');
       sList.Free;
end;