将XML文件写入android

——formshow

,newpath:='/存储/sdcard0/DCIM/100穿心莲内酯/GRJKDAGLGXYSF的;
,如果不是TDirectory。存在(newpath)然后开始
,,,,,TDirectory。CreateDirectory (newpath);//创建一个文件夹
,,,
结束;newpath:=newpath + '/';

- - - - -存入本机

var

,文件名:字符串;
,,newfile中:Tfilestream;

开始

,,文件名:=' update_sf_ + formatdatetime (“yyyy-MM-dd”,现在)+ gxyglkId;
,,newfile中:=TFile。创建(newpath +文件名);
,,newfile.Free;
,,clientdatasetlocal。SaveToFile (newpath +文件名,dfXML);

,

——创建文件

var
,newpath:字符串;
,newfile中:Tfilestream;

开始,newpath:='/存储/sdcard0/DCIM/100穿心莲内酯/GRJKDAGLF的;
,如果TFile。存在(newpath +/update.xml)然后开始
,,,,,ShowMessage(“文件存在”);
,,,
结束,,,其他开始
,,,,,newfile中:=TFile。创建(newpath + '/update.xml ');//创建一个文件(流)
,,,,,newfile.Free;//清除流
,,,//,SpeedButton5Click(自我);//关闭窗口
,,,//,TotalWork(路径,真正的);//更新列表
,,,结束;

——创建文件路径

var
,newpath:字符串;

开始,newpath:='/存储/sdcard0/DCIM/100穿心莲内酯/GRJKDAGLF的;
,showmessage (newpath);
,如果TDirectory。存在(newpath)然后开始
,,,,,ShowMessage(“文件夹存在!”);
,,,
结束,,,其他开始
,,,,,TDirectory。CreateDirectory (newpath);//创建一个文件夹
,,,,,ShowMessage(“文件夹创建!”);
,,,,//SpeedButton5Click(自我);//关闭窗口
,,,,//TotalWork(路径,真正的);//更新列表
,,,结束;

将XML文件写入android