----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;

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

网站题目：将XML文件写入android-创新互联
转载来源：http://scyanting.com/article/digooh.html