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?