1:
2:
3:
4:
5:

procedure TMainform.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName;
end;                    

1:
2:
3:
4:
5:

procedure TMainform.Edit1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit1.Text := 'Ausgewählter Pfad:   ' + ExtractFilePath(OpenDialog1.FileName);
end;                    

1:

TEdit(Sender)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

 var f: Textfile; 
 Ergebnis: string; 
 ZeilenInhalt: String; 
begin 
Ergebnis := ''; 
Assignfile(f, Dateiname); 
try 
reset (f); 
while not eof(f) do 
 begin 
 readln(f,ZeilenInhalt); 
 Ergebnis := Ergebnis + ZeilenInhalt; 
 end; 
 finally 
 Closefile(f); 
 end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

if pos(Wort, DateiInhalt)>0 then 
  //Zeichenfolge vorhanden
else 
  //Zeichenfolge nicht vorhanden

//wenn du aber wissen möchtest wo es ist und damit weiterarbeiten willst, dann ist das Ergebnis von pos die Stelle an der es das Wort beginnt..
length(Wort)+pos(Wort, DateiInhalt)-1; // liefert die Position des letztens Zeichens des Wortes im String

//Denk daran, wenn du mehr als nur ein befehl ausführen willst, reicht eine Befehlszeile nicht aus! du musst dann 
if pos(Wort, DateiInhalt)>0 then 
  begin
  //Zeichenfolge vorhanden
  end
else
  begin 
  //Zeichenfolge nicht vorhanden 
  end;

//Wenn es auch kein Unterwort sein soll wie "Hi" von "Hit" 
//dann frage es folgendermaßen ab
if pos(' '+Wort+' ', DateiInhalt)>0 then 
  begin
  //Wort vorhanden
  end
else
  begin 
  //Wort nicht vorhanden 
  end;
//wenn es aber das letzte wort im Sring ist, dann kommt nach dem Wort kein Leerzeichen mehr, 
// also 
if pos(' '+Wort, Dateinhalt)>0 then 
 if pos(' '+Wort, DateiInhalt)+length(' '+Wort)=length(DateiInhalt) then //wort ist das letzte wort des strings
  begin

  end
 else
  if pos(' '+Wort+' ', DateiInhalt) then  //Wort kommt mitten im String vor
   begin
   
   end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

assignfile(f, Dateiname) //bereitet die Datei (Textdatei) vor
//f ist die Textdatei die vorbereitet wird,
//Dateiname ist der Pfad, wo die eigentliche Datei liegt
reset(f) //setzt einen Zeiger auf den Anfang der Datei
eof(f) //checkt, ob der zeiger am End Of File angekommen ist
ReadLn(f, zeileninhalt) //liest die zeile, wo sich der zeiger gerade befindet und schreibt dann den Inhalt der Zeile in den String der dahinter steht..
                        //in diesem Beispiel heißt die variable ZeilenInhalt (variblen Name passend gewählt)
Ergebnis := Ergebnis + Zeileninhalt;// fügt nun den Zeileninhalt an das Ergebnis an
Closefile(f) //schließt die Datei wieder, damit sie von anderen Anwendungen wieder verwendet werden kann.. wenn du das weglässt, kannst du deine *.txt z.B. 
//nicht löschen..
//dass hast du sicherlich schon oft erlebt, wenn bei einer Datei steht, "diese Datei kann nicht gelöscht werden, da sie von einem Programm noch verwendet wird"
//das ensteht, wenn die Datei nicht freigegeben wird..                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

try
//machwas
Result := false;
  except
  Result := true;
  end;

//Result gibt nun an, ob es einen Fehler gab oder nicht.

try
//machwas
Result := false;
  finally
  Result := true;
  end;

//Result ist IMMER true, egal ob es ein fehler gab oder nicht...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Var StringList:TStringlist;
    wort:String;
begin

IF OpenDialog1.Execute then
   BEGIN
    wort:='test';
    Stringlist:=TStringlist.Create;
    Stringlist.LoadFromFile(OpenDialog1.FileName);
    IF Pos(wort,Stringlist.Text)>0 then
       ShowMessage('Suchbegriff "'+wort+'" gefunden.') else
       ShowMessage('Suchbegriff "'+wort+'" nicht gefunden.');
    Stringlist.Free;
   END;
end;