L
liwenbin
Unregistered / Unconfirmed
GUEST, unregistred user!
var
ff: file of Tlist;
myfile:TVectorGraphicsList;
begin
assign(ff,'d:/test.dat');
rewrite(ff);
blockwrite(ff, myfile, sizeof(myfile));
Closefile(ff);
end;
怎么不行呢?
ff: file of Tlist;
myfile:TVectorGraphicsList;
begin
assign(ff,'d:/test.dat');
rewrite(ff);
blockwrite(ff, myfile, sizeof(myfile));
Closefile(ff);
end;
怎么不行呢?