- [图文] 如何将网页所有元素保存在一个文件中
- AIX：一个老牌Unix系统的荣耀和叹息
- 多系统共用一个瑞星杀毒软件
- 中国将迎来一个新的安全PC时代
- [组图] 对一个大型网络硬盘营业站点的测试
- Sentinel：一个小巧的anti-sniffer工具
- 间谍软件: 下一个网络杀手
- 一个Linux病毒原型分析
- 我国出现一个新型蠕虫Worm_Mocbot.A
- 一个很有实用价值的QoS策略配置实例
- Wi-Fi之后下一个802.11n标准值得期待
- 中国第一个企业网格的建立
- 一个简单的打字练习程序
- 怎样在一个程序后面运行另一个程
- 一个经典的符合web标准的flash插入法
- 大家有没有碰到过unix上，一个目录文件太多，无法删..
- 一个程序自动刷新页面的例子（例如搜新浪小人）
- 一个支持HTTP续传下载的PERL程序
- 关于odbc的一个文挡说明，奉献给大家
- 一个CGI漏洞的发现和利用
CODE:
function IsTextFile(FileName:string):boolean;
var
Fs:TFileStream;
i,size:integer;
IsTextFile:boolean;
ByteData:Byte;
begin
if FileExists(FileName) then
begin
Fs:=TFileStream.Create(FileName,fmOpenRead);
IsTextFile:=true;
i:=0;
size:=Fs.Size;
While (i<size) and IsTextFile do
begin
Fs.Read(ByteData,1);
IsTextFile:=ByteData<>0;
inc(i)
end;
Fs.Free;
Result:=IsTextFile
end
else
Result:=false
end;
var
Fs:TFileStream;
i,size:integer;
IsTextFile:boolean;
ByteData:Byte;
begin
if FileExists(FileName) then
begin
Fs:=TFileStream.Create(FileName,fmOpenRead);
IsTextFile:=true;
i:=0;
size:=Fs.Size;
While (i<size) and IsTextFile do
begin
Fs.Read(ByteData,1);
IsTextFile:=ByteData<>0;
inc(i)
end;
Fs.Free;
Result:=IsTextFile
end
else
Result:=false
end;
[编辑：百家电脑学院] [返回学院首页] [返回上一页] []
·上一篇：Delphi实现正弦曲线的绘制 · 下一篇：Windows程序的基本结构