想读取二进制文件指定位置怎么实现啊? 我是菜鸟大家 多帮助啊 1 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //读取haha.txt文件第3字节开始4个字节的内容,haha.txt的内容为1234567procedure TForm1.Button1Click(Sender: TObject);var hFile: THandle; iBytesRead: Integer; Buffer: PChar;begin try hFile := FileOpen('C:\haha.txt', fmOpenRead); FileSeek(hFile,2,0); GetMem(Buffer,5); FileRead(hFile, Buffer^,4); ShowMessage(Buffer); finally FileClose(hFile); FreeMem(Buffer); end;end; 小问题急!!! 如何向Dts中传送参数? 关于面向对象中( nil ) 如何使用DialogBox建立一个模式对话框?(各位大侠请指教!) 高手帮忙!--一个关于对象操作的问题 ~~在线等,马上揭贴!~~~ 如何获取文档的作者?这个问题真的很难吗??斑竹请回答 字段名包括空格如何寫Select 語句呀? C开发的SDK转化为DELPHI 高分求购!!!--------祝大家新年快乐!!! GetLogicalDriveStrings怎么用呀 打包的问题 急!打印格式问题
procedure TForm1.Button1Click(Sender: TObject);
var
hFile: THandle;
iBytesRead: Integer;
Buffer: PChar;
begin
try
hFile := FileOpen('C:\haha.txt', fmOpenRead);
FileSeek(hFile,2,0);
GetMem(Buffer,5);
FileRead(hFile, Buffer^,4);
ShowMessage(Buffer);
finally
FileClose(hFile);
FreeMem(Buffer);
end;
end;