Trennzeichen suchen

[storm1988]

So, wenn du jetzt nur nach einem bestimmten Char bzw. String in einen File suchen willst würd ich des so machen:

Erst mal die Funktion:

Delphi-Quellcode:

function findeTrennzeichen(Pfad:string):Boolean;
var
  myFile : TextFile;
  text   : string;
begin


   AssignFile(myFile,Pfad);
    Reset(myFile);

     while not Eof(myFile) do
    begin
      ReadLn(myFile, text);
     if Pos('[b]Hier den geünschten String/Char reinschreiben[/b]', text) <> 0 then
          Result := true;
     end;





end;

Und nun der Aufruf:

Delphi-Quellcode:

var
  i: Boolean;
begin
  i := findeTrennzeichen('[b]Hier das gewuenschte File[/b]');
  if i = true then
    ShowMessage('String wurde Gefunden');