Object Pascal中FileSize函数的用法

Object Pascal中FileSize函数的用法

偶然间被朋友问到FileSize函数，在百度上一搜却也只能看见PHP语言中此函数的用法，经过多次实验探究后，便想发表此文章，为广大编程爱好者谋福利。

所谓FileSize函数，其实就是一个计算文件大小(以Byte为单位)的函数，其定义如下：

①function FileSize(f:file):int64;

②function FileSize(Line:string):int64;

其中①为通用，②仅限于开发窗口化程序时使用。

在一般编程环境(控制台程序)下的代码编写方法

在应用程序编程环境(窗口化程序)下的代码编写方法

若文件为全英语，函数的输出数据如下。

由此可得，一个字母为1字节。

若文件为全汉语，函数的输出数据如下。

由此可得，一个汉字(ANSI编码下)为2字节

若文件为全日文，函数的输出数据如下。

由此可得，一个日文假名(ANSI编码下)为2字节