将字符串写入txt文档,读取txt文档中的内容. //一次写字符串到文本文件,每次都会将原来的内容替换掉. procedure FilePutContents(f,s:String); // f为文件名,s为存的内容 var ss:TStrings; begin ss:=TStringList.Create; ss.Text:=s; ss.SaveToFile(f, TEncoding.UTF8); ss.Free; end; 下面为不替换原来的内容,追加写入文本: procedure File…