Example
Return to Introduction  Previous page  Next page
The following example demonstrates how to copy some pictures selected from TOpenPictureDialog to some location (previously specified in the DestFolder).


procedure TMainForm.AddBtnClick(Sender: TObject);
var
  I: Integer;
begin
  if OpenPictureDialog1.Execute then
   with dcFileOperations1 do
    try
      FileList.Clear;
      I := OpenPictureDialog1.Files.Count;
      if I <> 0
 then
       for I := 0
 to I - 1 do
        // long filenames must be in quotes (")

        FileList.Add('"'
 + OpenPictureDialog1.Files[I] + '"');
      Copy// or any other 
operation
    except
    end;
end;