AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

"Pos" findet String wegen Einrückung nicht

Ein Thema von Freyr77 · begonnen am 17. Okt 2016 · letzter Beitrag vom 17. Okt 2016
 
Freyr77
(Gast)

n/a Beiträge
 
#1

"Pos" findet String wegen Einrückung nicht

  Alt 17. Okt 2016, 13:47
Delphi-Version: 10 Seattle
Es geht um folgende Code, in dem "Pos" einfach einen String in einer StringList finden und die gefundene Stelle als Integer zurückgeben soll.

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
      if Pos(SearchText, sList.Strings[Index]) > 0 then
      begin
        Result := Index;
        sList.Free;
        Exit;
      end
      else
      ShowMessage('Einstiegspunkt wurde nicht gefunden.');
      sList.Free;
end;
Über dem gefundenen String (String ist in der benötigten Datei als Kommentar hinterlegt) wird ein neuer Text eingefügt. Geschrieben wird das ganze in eine .pas. Wenn ich den Kommentar am Anfang der Zeile schreibe, macht der Code auch was er soll. Eigentlich sollte der Kommentar aber "ordentlich formatiert" mit Einrückungen in der Zeile stehen. In diesem Fall wird er aber nicht mehr gefunden.

Hat da jemand eine Idee?
Und gibt es eine Möglichkeit die "Einrückungen" in einer Zeile als Integer wieder zu bekommen, um einzufügenden Code vorher schon zu formatieren?
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz