var
 F: Text; //TextFile 和 Text 是一樣的

成都創(chuàng)新互聯(lián)公司企業(yè)建站,十年網(wǎng)站建設(shè)經(jīng)驗(yàn)，專注于網(wǎng)站建設(shè)技術(shù)，精于網(wǎng)頁(yè)設(shè)計(jì)，有多年建站和網(wǎng)站代運(yùn)營(yíng)經(jīng)驗(yàn)，設(shè)計(jì)師為客戶打造網(wǎng)絡(luò)企業(yè)風(fēng)格，提供周到的建站售前咨詢和貼心的售后服務(wù)。對(duì)于成都做網(wǎng)站、成都網(wǎng)站建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)中不同領(lǐng)域進(jìn)行深入了解和探索，創(chuàng)新互聯(lián)在網(wǎng)站建設(shè)中充分了解客戶行業(yè)的需求，以靈動(dòng)的思維在網(wǎng)頁(yè)中充分展現(xiàn)，通過(guò)對(duì)客戶行業(yè)精準(zhǔn)市場(chǎng)調(diào)研，為客戶提供的解決方案。

----------------------------------

   filename := ExtractFilePath(Application.ExeName) + '院感病歷導(dǎo)入記錄.txt';
   if FileExists(filename) then
   begin
     AssignFile(F,FileName);
     Append(F); //打開(kāi)準(zhǔn)備追加
     Writeln(F, datetostr(curdate) + '成功導(dǎo)入！');
     CloseFile(F);
   end
   else
   begin
     FileCreate(filename);
     AssignFile(F,FileName);
     Append(F); //打開(kāi)準(zhǔn)備追加
     Writeln(F, datetostr(curdate) + '成功導(dǎo)入！');
     CloseFile(F);
   end;

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無(wú)理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢(shì)，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場(chǎng)景需求。

分享名稱：delphi操作文件-創(chuàng)新互聯(lián)
標(biāo)題網(wǎng)址：http://weahome.cn/article/igjop.html