请问如何删除 E：＼wen 文件夹下的所有扩展名为 .mp3的文件？ 在线等待
发布时间：2010-02-05 |
1楼: 如何将向二进制文件里面写入多条数据,而以前的数据不会被覆盖,
请问如何删除 E：＼wen 文件夹下的所有扩展名为 .mp3的文件？ 在线等待
能举个例子吗？ 字串3 2楼: 打开一个二进制文件，先移动指针到你要写的位置，然后再写。就不会覆盖你以前的数据了。
assignfile(dFile,‘xxx.dat‘);
rewrite(dfile,1); 每次写一个字节，可改为你需要的
seek(dFile,927657); 移到927657个字节处开始
for i：=0 to 10983 do 写10983个字节数据
BlockWrite(dfile,buf,1);
closefile(dfile);
如果你有多条连续数据，只要用一个循环，但Seek只要在开始循环前写一遍，写入后指针会自动到N+1的位置上。 字串8 3楼: 请问,还有别的方法吗？那么怎么计算字节呢？
seek的参数主要有哪些呢？
字串5
4楼: 用流
var
TempStream ： TMemoryStream;
begin
TempStream ：= TMemoryStream.Create;
TempStream.SetSize(原长度＋新长度)
TempStream.Position ：= 原长度;
TempStream.write(内容,新长度);
//如果内容是字符型的就用TempStream.Write(PChar(s)^, Length(s));
TempStream.Free;
end; 字串3 5楼: type
RData=Packed Record
Name：String[255];
Dan ：String[255];
Addr：String[255];
Bian：String[255];
Hai ：String[255];
Lei ：String[20];
i ：integer;
date：TDateTime;
end;
procedure TFr_new.RzB_okClick(Sender： TObject);
var
MemStream：TMemoryStream;
FData：RData;
pathfile：string;
begin
pathfile：=ExtractFilePath(Application.ExeName)+‘list.bin‘;
MemStream：=TMemoryStream.Create;
try
// MemStream.Seek(0,eof(‘pathfile‘);
FData.Name：=trim(RzEdit1.Text);
FData.Dan ：=trim(RzEdit2.Text);
FData.Addr：=trim(RzEdit3.Text);
FData.Bian：=trim(RzEdit4.Text);
FData.Hai：=trim(RzEdit5.Text);
FData.Lei：=RzComboBox1.Text;
FData.date：=now();
FData.i：=adv1.RowCount;
MemStream.Write(FData,SizeOf(RData));
MemStream.SaveToFile(pathfile);
finally
MemStream.Free;
close;
end;
end;
将向二进制文件里面写入多条数据,而以前的数据不会被覆盖, 字串4
6楼: 请问如何删除 E：＼wen 文件夹下的所有扩展名为 .mp3的文件？ 在线等待字串5
7楼: 最简单的：
执行 del E：＼wen＼*.mp3
隐藏执行窗口
或者：
var
SearchRec： TSearchRec;
begin
if FindFirst(‘E：＼wen＼*.mp3‘,faAnyFile,SearchRec) = 0 then begin
repeat
DeleteFile(‘E：＼wen＼‘+SearchRec.Name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end; 字串4
8楼: 多人接受答案了。 字串6