TurboPL Referenz

TAppend

Syntax

TAppend(Dateiname: String): Integer

Kategorie

Basisfunktion

Erklärung

Öffnet die Datei zum Anhängen von Daten an die bestehenden. Zurückgegeben wird im Erfolgsfall die Dateinummer, über den in der Folge auf die Datei zugegriffen werden kann. Tritt ein Fehler auf, wird 0 zurückgegeben.

TAppend sollte nicht für die Speicher-Datei aufgerufen werden. Falls dies dennoch geschieht, hat TAppend hier den selben Effekt wie Rewrite.

Beispiel

Die Prozedur hängt an das Ende der übergebenen Textdatei die Zeile "<END OF FILE>" an.

procedure WriteEOF(TextFile: string)
       vardef FileHdl: Integer;
       FileHdl := TAppend(TextFile)
       if FileHdl > 0
         WriteLn(FileHdl, "<END OF FILE>");
         Close(FileHdl);
       end;
endproc;

Siehe auch

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