怎样才能对已选的文件依次进行处

Question

怎样才能对已选的文件依次进行处
我在文件列表控件中进行文件多选后，怎样才能对已选的文件依次进行处理。例如，把所选的文件名都写入edit控中

Answer 1

Procedure TForm1.Button1Click(Sender: TObject);
begin  if opendialog1.Execute then
  begin
    showmessage(opendialog1.Files.Text  );
  end;
end;

Answer 2

注意在FILES中元素的顺序是和选择的顺序相反的；

Answer 3

if Opendialog.Execute then
begin
  for i := 0 to OpenDialog.Files.Count - 1 do
    deal(OpenDialog.Fiels.Strings[i])
end;OpenDialog.Fiels.Strings[i]这个就是你要处理的文件名.

Answer 4

ShowMessage(OpenDialog.Files.Strings[IntegerValue]);如：
For I := 0 to OpenDialog.Files.Count - 1 do
begin
  With FindComponent('Edit' + IntToStr(I)) , OpenDialog.Fields do
  begin
    Text := Strings[I];
  end;
end;