精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>文件>>天哪!一个字符串怎么写入文件,我真的找不

主题:天哪!一个字符串怎么写入文件,我真的找不
发信人: blee()
整理人: (2000-12-06 19:47:51), 站内信件
【 在 xiaoji (唔食铁0既小吉) 的大作中提到: 】
: 天哪!一个字符串(其实里边是二进制代码,图片的文件内容)怎么新建并写入
: 一个文件,我真的找不到例程呀!求教!

给你一个:
procedure StrToFile(str: String);
var
  fs: TFileStream;
  len: Integer;
begin
  try
    len := Length(str);
    fs := TFileStream.Create(strLogFileName, fmOpenReadWrite);
    fs.Seek(0, soFromEnd);
    fs.Write(PChar(str)^, len);
    fs.Free;
  except
  end;
end;



--
~*^~*^~*^~*^~*^~*^~*^~*^~*^~*^~*^
~*^    图形界面的终端软件Stn   ~*^
~*^    http://stn.126.com     ~*^
~*^    http://stn.yeah.net    ~*^
~*^~*^~*^~*^~*^~*^~*^~*^~*^~*^~*^

※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.96.184.213]

[关闭][返回]