码迷,mamicode.com
首页 > 移动开发 > 详细

将XML文件写入android

时间:2014-08-04 14:42:27      阅读:256      评论:0      收藏:0      [点我收藏+]

标签:delphi xe6 文件 file

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

本文出自 “一切有为法,如梦幻泡影” 博客,请务必保留此出处http://kaixinbuliao.blog.51cto.com/2567365/1535172

将XML文件写入android,布布扣,bubuko.com

将XML文件写入android

标签:delphi xe6 文件 file

原文地址:http://kaixinbuliao.blog.51cto.com/2567365/1535172

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!