var
sFile: String;
tFile: TextFile; sFile := 'c:\1212.txt';
AssignFile(tFile,sFile);
Rewrite(tFile);
//可以重新写入WriteLn(tFile,'123123123');
CloseFile(tFile);
sFile: String;
tFile: TextFile; sFile := 'c:\1212.txt';
AssignFile(tFile,sFile);
Rewrite(tFile);
//可以重新写入WriteLn(tFile,'123123123');
CloseFile(tFile);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货