SelectDirectory Problem

[DeddyH]

Dann waren wir doch nicht so daneben. Du musst zunächst einmal das Verzeichnis nach *.txt durchsuchen, das geht wie gesagt mit FindFirst usw. Jede gefundene Datei durchsuchst Du dann wiederum nach dem Text, etwa so:

Delphi-Quellcode:

uses StrUtils;

function FileContainsText(const Filename, SearchText: string;
                          CaseSensitive: Boolean = true): Boolean;
var sList: TStringlist;
begin
  sList := TStringlist.Create;
  try
    sList.LoadFromFile(Filename);
    if CaseSensitive then
      Result := AnsiContainsStr(sList.Text, SearchText)
    else
      Result := AnsiContainsText(sList.Text, SearchText);
  finally
    sList.Free;
  end;
end;