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