----formshow

建網(wǎng)站原本是網(wǎng)站策劃師、網(wǎng)絡程序員、網(wǎng)頁設計師等，應用各種網(wǎng)絡程序開發(fā)技術和網(wǎng)頁設計技術配合操作的協(xié)同工作。成都創(chuàng)新互聯(lián)公司專業(yè)提供網(wǎng)站制作、網(wǎng)站設計,網(wǎng)頁設計,網(wǎng)站制作(企業(yè)站、自適應網(wǎng)站建設、電商門戶網(wǎng)站)等服務,從網(wǎng)站深度策劃、搜索引擎友好度優(yōu)化到用戶體驗的提升,我們力求做到極致!

  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;

---創(chuàng)建文件

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;

---創(chuàng)建文件路徑

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;