var
f1:File of integer;
aa:integer;
begin
AssignFile(f1,'test.exe');
try
reset(f1);
seek(f1,128);
read(f1,aa);
edit1.text:=inttohex(aa,2); //显示内容
finally
closeFile(f1);
end;我试图改变aa的类型时就无法编译文件因为我要对文件进行二进制操作,又要用文本方式读写字符串,怎么办??
f1:File of integer;
aa:integer;
begin
AssignFile(f1,'test.exe');
try
reset(f1);
seek(f1,128);
read(f1,aa);
edit1.text:=inttohex(aa,2); //显示内容
finally
closeFile(f1);
end;我试图改变aa的类型时就无法编译文件因为我要对文件进行二进制操作,又要用文本方式读写字符串,怎么办??
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货