Textdatei nach bestimmten Begriff durchsuchen

[N30N]

Ahhh tschuldigung Klaus01, ich glaub ich hab nur die Hälfte von deinem Vorschlag erkannt. Jetzt gleiche ich Text und Suchbegriff vor dem Vergleich auf lowercase an und es funktioniert!

Danke ncohmal an alle

Richtiger Quellcode ist also:

Delphi-Quellcode:

procedure TForm5.SuchestartenClick(Sender: TObject);
var
    StringList : TStringList;
    s : string;
    i : byte;
begin
  memo1.clear;
  for i := 1 to 100 do
    begin
      StringList := TStringList.Create;
      try
        StringList.LoadFromFile('\\Server\Datenbank\' + inttostr(i) + '.txt');
        s := lowercase(StringList.Text);
        if pos(lowercase(edit1.text), s) > 0 then
        memo1.lines.add (inttostr(i));
      finally
        StringList.free;
      end;
    end;
end;