delphi中有读入、保存二进制文件的控件吗?
有这种控件吗,我就想用delphi对一个二进制的文件进行读写操作? 问题点数:20、回复次数:2Top
1 楼47522341(睡到8:30)回复于 2003-12-02 19:58:43 得分 20
不用控件的;
下面是刚在那边看到的一个【月亮】写的程序;实现了对二进制文件的读写操作;
var
f1, len: integer;
str : string;
begin
f1 := fileopen('testread.bin', fmOpenRead);
if f1 > 0 then
begin
len := fileseek(f1, 0, 2);
fileseek(f1, 0, 0);
str := stringofchar(#0, len);
fileread(f1, str[1], len);
fileclose(f1);
end;
f1 := createfile('testwrite.bin');
if f1 > 0 then
begin
filewrite(f1, str[1], len);
fileclose(f1);
end;
end;
Top
2 楼jeffaple(坤)回复于 2003-12-02 21:46:26 得分 0
知道这个最大能读写多大的一个文件,如果要10Mb左右的可以吗?Top




