android xml文件读写,将XML文件写入android

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