uses Dos;
var
DirInfo: SearchRec;
begin
FindFirst('*.PAS', Archive, DirInfo); {如同DOS命令 DIR *.PAS }
while DosError = 0 do {当查找成功时循环}
begin
Writeln(DirInfo.Name); {输出找到的一个文件名}
FindNext(DirInfo); {查找是否还有满足条件的其它文件}
end;
end.
是用 assign reset rewrite 的吗？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024