重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
var
F: Text; //TextFile 和 Text 是一样的
----------------------------------
filename := ExtractFilePath(Application.ExeName) + '院感病历导入记录.txt';
if FileExists(filename) then
begin
AssignFile(F,FileName);
Append(F); //打开准备追加
Writeln(F, datetostr(curdate) + '成功导入!');
CloseFile(F);
end
else
begin
FileCreate(filename);
AssignFile(F,FileName);
Append(F); //打开准备追加
Writeln(F, datetostr(curdate) + '成功导入!');
CloseFile(F);
end;
另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。