Textdatei nach bestimmten Begriff durchsuchen

[N30N]

Update weiter unten!



Hi,

Ich versuche 100 Textdateien nach einem bestimmten Begriff zu durchsuchen. Ich hab dann mal die Forensuche bedient und folgenden Code gefunden und angepasst.Die Dateien liegen im Format 1.txt, 2.txt, 3.txt usw vor. Allerdings funktioniert das nicht so wie ich will.

Delphi-Quellcode:

procedure TForm5.SuchestartenClick(Sender: TObject);
var
    StringList : TStringList;
    posi : integer;
    s : string;
    i : byte;
begin
  for i := 0 to 100 do
    begin
      StringList := TStringList.Create;
      try
        StringList.LoadFromFile('\\Server\Datenbank\' + inttostr(i) + '.txt);  [b]// [Fehler] Unit5.pas(45): Nicht abgeschlossener String[/b]
        s := StringList.Text; [b]// [Fehler] Unit5.pas(46): ')' erwartet, aber Bezeichner 's' gefunden[/b]
        delete(s, 1, pos(edit1.text, s) + length(edit1.text) - 1);
        memo1.lines.add (copy(s, 1, pos('<Endewort>', s) - 1));
      finally
        StringList.free;
      end;
    end;
end;

Die Fehlermeldungen sagen mir nicht viel, was mach ich falsch? Und wozu brauche ich Endewort?

Originalthread ist übrigens der hier

Ach ich sehe gerade, der Ersteller des anderen Threads sucht eine Möglichkeit um den Inhalt zwischen zwei Wörter herauszusuchen. Naja, viel Unterschied wird in den Verfahren nicht sein. Ich will eigentlich nur den Namen der Textdatei in der Memobox ausgeben, wenn ein bestimmter Begriff in dieser Datei gefunden wurde.