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