Einzelnen Beitrag anzeigen

Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.355 Beiträge
 
Delphi 11 Alexandria
 
#14

AW: "Pos" findet String wegen Einrückung nicht

  Alt 17. Okt 2016, 14:46
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.
Peter

Geändert von Jasocul (17. Okt 2016 um 14:58 Uhr) Grund: Blöden Fehler korrigiert (Break <> Exit)
  Mit Zitat antworten Zitat