SaveToFile后我是一条记录保存进去后打开文件他在最后面会自动换行,怎么取消他的自动换行 自动换行了那我读这个文件会得到我要的数据加一个(0D0A --> 换行)那么我的数据就会是错的 怎么去掉呢
解决方案 »
- win7 如何保存桌面主题?
- 请各位大侠帮帮忙,刚遇上一个奇怪的问题,不知道为何如此请指教!
- 谁给讲讲mediaplay控件最简单的用法,必须配置的属性..
- 那位高人谁能帮个忙,绝对高分酬谢!!
- 新手问题,请各位帮忙。在线等待,多谢!
- Rational Rose文档
- 我连接数据库一般是用BDE,但我看到大家都是用ADO连接,ADO比较BDE来有什么好处?
- 请高手进来看看,有关MIDAS!!!!!
- 请问如何限制stringgrid的输入信息:1、我只想让用户在一个单元格中输入5位字符;2、我只想让用户输入数字字符!谢谢!
- Delphi5如何连接SyBase的数据库?
- M1卡的存取控制4个字节: FF 87 80 95 表示什么意思?请大家帮帮忙
- IdTcpClient如何等待IdTcpServer开启
//----- 流写 保存到txt 文件可覆盖可追加 默认是追加 最好用
function SaveToTxt(const SaveFN, SaveData: string; Append: Boolean = True): Boolean;
var
FS: TStreamWriter;
begin
Result := False;
if (SaveFN = '') or (SaveData = '') then
Exit;
FS := TStreamWriter.Create(SaveFN, Append, TEncoding.UTF8); //参数2 True表追加 TEncoding.Default
try
FS.Write(SaveData); //按行写入 FS.Write(SaveData); 没有换行符
Result := True;
finally
FS.Close;
FS.Free;
end;
end;
D2010的用法
uses
IOUtils;//----- 字节流?保存到
function SaveToTxt(const SaveFN, SaveData: string): Boolean;
begin
Result := False;
if (SaveFN = '') or (SaveData = '') then
Exit;
try
TFile.AppendAllText(SaveFN, SaveData, TEncoding.UTF8); //; {可指定编码格式}
Result := True;
except
end;
end;