Bestimmte Bereiche aus .txt-Datei auslesen

[Nikolas]

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