★★★请问如何处理一个文件夹中或一个打开对话框中的所有文件？

Question

比如说，这个文件夹中有30个.Gif文件，现在全部改名为.Jpg文件.
改名的代码不用详写：）关键要如何处理该文件夹或一个打开对话框中的所有（每一个）文件的代码分数好说，先给100，不够再加！！！

Answer 1

设置OpenDialog1的Options属性下的ofAllowMultiSelect为Truevar
  i:integer;
begin
  if OpenDialog1.Execute then
  begin
    for i:=0 to OpenDialog1.Files.Count-1 do
    begin
      //处理更名操作
      ShowMessage(OpenDialog1.Files.Strings[i]);//取每个文件名的代码
    end;
  end;

Answer 2

用FindFirst、FindNext、FindClose函数，帮助中有个例子。

Answer 3

var
  SourDir:string ;
  SearchRec: TSearchRec;
  filename:string;
begin  try
    if FindFirst(SourDir+'*.gif', faAnyFile, SearchRec)=0 then
    begin
       SourDir+SearchRec.Name);
      While FindNext(SearchRec)=0 do
        SourDir+SearchRec.Name;
    end;
     FindClose(SearchRec);
  except
  end;