String an Position x ausgeben lassen

[alleinherrscher]

Dann kannst du die Datei doch zeilenweise in einer Schleife einlesen:

Delphi-Quellcode:

var T:Textfile;
    found_PLZ:boolean;
    gesuchte_PLZ:string;
    aline:string;
begin

 gesuchte_PLZ:='52067';
 found_PLZ:=false;

 assignfile(T,'bla.txt');

 reset(T);
 while (not eof(T)) and (not found_PLZ) do
 begin
   readln(T,aline);
   if pos(gesuchte_PLZ,aline)>0 then found_PLZ:=true;
 end;

 closefile(T);

end;

//edit: kleine Source-korrekturen...hoffe es stimmt jetzt so, ist ausm kopf...
//edit2: Noch eine Korrektur. POS liefert 0 (und nicht -1) zurück, wenn der SubString nicht gefunden wurde.