我该如何读取一个文件的第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 ) 即可达到你的要求。 delphi数据库相关 学习的迷茫 请用Delphi 开发数据库经验的朋友来指点!!! 关于Listview---用listview显示房态图 急。。。关于InfoPower 4000 Pro 求一时间函数 谁能给我传一份改进后的Richedit控件? Delphi怎么打包 ComboBox不支持Ctrl+V? 如何在delphi中用语句实现启动unix机器下的shell程序 都说中国现在缺软件人才,我怎么不觉得?找工作那么难 怎样启动一个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 ) 即可达到你的要求。