求助~

APRIL424 2003-10-19 06:44:50
我有一个文本文件
我想在打开它后,在它的文件尾写如一些字符串
请问怎样跳到它的文件尾部

...全文
41 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
nyf1220 2003-10-19
  • 打赏
  • 举报
回复
哎,都让小高说完了!
你刑聂呀??跟我同性!
csntgao 2003-10-19
  • 打赏
  • 举报
回复
根据你的实际情况选择!
csntgao 2003-10-19
  • 打赏
  • 举报
回复
方法2:
var stream:TStream;
str:String ;
begin
stream:=TFileStream.create(FileName,fmOpenWrite);
stream.Position:=Stream.Size;
str:='Datas';//你的字符串
Stream.Write(str[1],Length(str));
Stream.Free;
end;
pankun 2003-10-19
  • 打赏
  • 举报
回复
同意楼上...
csntgao 2003-10-19
  • 打赏
  • 举报
回复
方法1:
var strs:TStringList;
begin
Strs:=TStringLIst.Create();
Strs.LoadFromFile(FileName)//FileName here
Strs.Add('Datas') //你要的字符串,如果你想添加一行 或者
Strs[Strs.Count-1]:=Strs[Strs.Count-1]+'Datas': //你要的字符串,如果你只想在
//最后一行添加几个字符
Strs.SaveToFile(FileName);
strs.Free;

end;

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧