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.