Nochmal vielen dank, aber ich bekomme da ein paar Fehlermeldungen bei deinem Code:
Delphi-Quellcode:
var dat: textfile;
i: integer;
i:=0; // Oben in der Variable wollte er das nicht =0 setzten
assignfile(dat,'C:\Dokumente und Einstellungen\Moon\Desktop\Woisserdenn\text.txt');
reset(dat);
while not EOF(dat) do
begin
inc(i);
readln(dat,str){Cursorposi}; // << '(' Erwartet, aber ')' gefunden
if pos('Rang',str){Cursorposi} <> 0 // << '(' Erwartet, aber ')' gefunden
then // << inkompatible Typen
Showmessage{Cursor}('Da ist''s'); // Der Ausdruck muss Boolean sein
end;
fileclose(dat);
irgendwie fühl ich mich vom compiler verarscht ...