TurboPL Referenz

ReadLn

Top  Previous  Next

Syntax

ReadLn(FileHandle: Integer): String

Kategorie

Basisfunktion

Erklärung

Aus der zugehörigen Textdatei wird eine komplette Zeile bis zum nächsten CR/LF gelesen. Diese Zeile bildet das Ergebnis der Funktion. Der Zeilenvorschub (=CR/LF) wird überlesen.

FileHandle ist ein von Reset zurückgeliefertes Datei-Handle.

Laufzeitfehler

2        Datei ist defekt oder gesperrt.

37        Der Datei-Handle ist ungültig.

Anmerkung

In früheren Versionen wurden maximal 255 Zeichen der eingelesenen Zeile als Funktionswert geliefert. Diese Beschränkung gibt es nicht mehr.

Beispiel

Die Prozedur kopiert eine Textdatei:

procedure Kopiere_Text(Quelldatei, Zieldatei: String)
vardef QuellHdl, ZielHdl: Integer;
               QuellHdl := Reset(Quelldatei);
               ZielHdl := Rewrite(Zieldatei);
               IF QuellHdl > 0 and ZielHdl > 0
                               WHILE NOT EOT(QuellHdl)
                                               WriteLn(ZielHdl, ReadLn(QuellHdl));
                               END;
               END;
               Close(QuellHdl);
               Close(ZielHdl);
endproc

Siehe auch

Close, Eot, Read, Reset, Rewrite, TAppend, Write, WriteLn