| 发表于:2008-02-20 04:54:103楼 得分:0 |
var source:tfilestream;//文件流 p1:pchar;//指针 size1:integer;//指定大小 addr1:longint;//文件指针也就是ue地址 addr1:=$000000;//ue中地址 p1:=pchar(edit1.text);//指针指向edit1.text size1:=length(edit1.text);//写入数据大小 source:=tfilestream.create('文件路径');//创建对象 source.seek(addr1,sofrombeginning);//移动指针到指定地址 source.writebuffer(p1^,size1);//写入数据 source.savetofile('保存新文件路径');//保存,这个不要解释了吧 source.free;//最后释放对象 | | |
|