我该如何读取一个文件的第XX字节呢? 用TFileStream读,然后用Filestream.seek 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TFileStream具体的应该如何的使用呢? 谢谢 function ReadAByte( const sFileName: String; Offset: Integer ): Byte;var fs: TFileStream;begin fs := TFileStream.Create( sFileName, fmOpenRead or fmShareDenyWrite ); try fs.Seek( Offset, 0 ); fs.Read( Result, 1 ); finally fs.Free; end;end;使用 ReadAByte( '文件名', 12 ) 即可达到你的要求。 关于一个公共函数问题! Currency转换成字符 如何在DELPHI中进行时间比较 求助,关于fastreport paintbox 关于COPYFILE 问题,谢谢,急,急,急,马上给分 , 100,来拿啊!!! 窗体多个置顶的问题。 在ado下为什么delete不能执行? 100分 关于硬盘写保护的问题!!!!快点!!在线等待!!!!!! 怎样启动一个HELP文件? :) 今天是星期一,有很多高手开始上班了。这个捆饶我很久的问题可能可以得到解决了!快请进!!!:D
var
fs: TFileStream;
begin
fs := TFileStream.Create( sFileName, fmOpenRead or fmShareDenyWrite );
try
fs.Seek( Offset, 0 );
fs.Read( Result, 1 );
finally
fs.Free;
end;
end;使用 ReadAByte( '文件名', 12 ) 即可达到你的要求。