Hallo,
schau Dir bitte mal TFileStream genau an.
Dann liest Du damit "zeichenweise". Immer wenn Du auf #12 stößt, weißt Du, dass eine Seite zuende ist.
Ich versuche es mal mit Pseudocode:
Code:
erstelle eine Stringliste
erstelle einen Memorystream
erstelle einen Filestream
wiederhole
lese ein Zeichen aus dem Filestream
ist Zeichen = #12
kopieren den memorystream in eine Stringliste
// hier enthält die Stringliste nun genau eine Seite
mache hier die erforderlichen Arbeiten für diese Seite
leer Stringliste
leere memeorystream
ist Zeichen <> #12
schreibe zeichen in memeorystream
wiederhole bis Dateiende
// Erforderlich für die letzte Seite, falls die nicht mit #12 enden sollte.
ist der Memorystream nicht leer
kopieren den memorystream in eine Stringliste
// hier enthält die Stringliste nun genau eine Seite
mache hier die erforderlichen Arbeiten für diese Seite
Ende