C语言的 chsize 对应的Pascal的函数是什么,谢谢 ( 积分: 200 )

C语言的 chsize 对应的Pascal的函数是什么呀 ,谢谢各位了
//改变文件尺寸,将文件恢复原尺寸.
if(chsize(fileno(fp),atol(fsize)) != 0)
翻译成Pascal该怎么写

你先移动文件指针，然后使用 Truncate(f);
就可以达到你的目的。
procedure Truncate(var F);

Description

In Delphi code, Call Truncate to cause the current file position to become end-of-file (Eof(F) is true).

F is a file variable of any type except a text file. Truncate does not work on text files. F must be open.

用数据流该怎么处理呢？能给个具体的代码吗？