SelectDirectory Problem

[TK S 22]

Entschuldigt bitte, wenn ich hier jemandem auf den Schlips getreten bin aber ich weiß ncoh so gut wie nix wie delphi.


Ich habs jetzt. Danke.
Allerdings wäre da noch eine Frage zu klären.
Ich hab jetzt einen Befehl eingebaut, mit dem er alle Textdateien durchsucht, die nummeriert sind.

Code:

begin
    memo1.Clear;
    for i := 0 to 100  do
      begin
        StringList := TStringlist.Create;
        try
          StringList.LoadFromFile(pfad +inttostr (i) + '.txt');
          s := lowercase (StringList.Text);
          if pos (lowercase (edit1.Text), s) >0 then
          memo1.Lines.Add(inttostr (i));
        finally
          StringList.free;
        end;

Aber gibts auch ne möglichkeit einfach alle .txt in dem Ordner zu durchsuchen??
Danke.