Kopf- und Fußgesteuerte Schleifen [Verständnisfrage]

[p80286]

Delphi-Quellcode:

assignfile(myfile,'C:\temp\testtext');
reset(myfile);
repeat
  readln(myfile,satz);
until eof(myfile) or (pos('Testtext',Satz)>0);
closefile(myfile);


assignfile(myfile,'C:\temp\testtext');
reset(myfile);
while not(eof(myfile)) and (pos('Testtext',Satz)=0) do
  readln(myfile,satz);
closefile(myfile);

wie wär's damit?
Hab allerdings nichts getestet!

Gruß
K-H