----formshow

  newpath := '/storage/sdcard0/DCIM/100ANDRO/GRJKDAGLGXYSF';

  if not TDirectory.Exists (newpath) then begin       TDirectory.CreateDirectory (newpath); //Create a folder     end;   newpath := newpath + '/';

----存入本机

var

  filename:string;

   newfile:Tfilestream;

begin

   filename := 'update_sf_' + formatdatetime('yyyy-MM-dd',now) + gxyglkId;

   newfile := TFile.Create (newpath + filename);    newfile.Free;    clientdatasetlocal.SaveToFile(newpath + filename,dfXML);

end;

---创建文件

var

  newpath:string;   newfile:Tfilestream; begin   newpath := '/storage/sdcard0/DCIM/100ANDRO/GRJKDAGLF';   if TFile.Exists (newpath + '/update.xml') then begin       ShowMessage ('File exists');     end     else begin       newfile := TFile.Create (newpath + '/update.xml'); //Create a file (stream)       newfile.Free; //Clear Stream     //  SpeedButton5Click (Self); //Close the window     //  TotalWork (path, True); //Update the list     end;

---创建文件路径

var

  newpath:string; begin   newpath := '/storage/sdcard0/DCIM/100ANDRO/GRJKDAGLF';   showmessage(newpath);   if TDirectory.Exists (newpath) then begin       ShowMessage ('Folder Exists!');     end     else begin       TDirectory.CreateDirectory (newpath); //Create a folder       ShowMessage ('Folder created!');      // SpeedButton5Click (Self); //Close the window      // TotalWork (path, True); //Update the list     end;

本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/1535172 ，如需转载请自行联系原作者