Hier nochmal ein kleiner Code:
Delphi-Quellcode:
var: dat: textfile; i: integer= 0;
assignfile(dat,'C:\Dokumente und Einstellungen\Moon\Desktop\Woisserdenn\text.txt');
reset(dat);
while not EOF(dat) do // solange man nicht am 'End Of File' angekommen ist...
begin
inc(i);
readln(dat,str); // Die aktuelle Zeile wird gelesen
if pos('Rang',str) <> 0 // Falls 'Rang' nicht drinsteht, wird '0' zurückgegeben
then
Showmessage('Da ist''s');
end;
fileclose(dat); // So jetzt ist's besser