怎样才能把一个字符写进一个文件中去。。。。??(0分)

  • 主题发起人 主题发起人 luky_99
  • 开始时间 开始时间
L

luky_99

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样才能把一个字符串写进一个文件中去。。。。??
 
什么文件类型?
txt? exe
 
var
TextFileName : TextFile;
tmpStrList : TStringList;
begin
if not FileExists(ExtractFilePath(Application.Exename) + '文件名') then
begin
AssignFile(TextFileName,ExtractFilePath(Application.Exename) + + '文件名');
Rewrite(TextFileName);
CloseFile(TextFileName);
end;
tmpStrList := TStringList.Create;
try
if trim(字符串) <> '' then tmpStrList.Add(字符串)
else Exit;
tmpStrList.SavetoFile(ExtractFilePath(Application.Exename) + '文件名');
finally
tmpStrList.Free;
end;
end;
 
to 王建伟:
先谢过了!
但是这样好象把我以前的内容给删除了!我要加到以前的内容的后面,最好加在
以前的内容的前面
 
to 人在昆明:
我指的是所有格式的文件
 
呵呵,做什么东西会有这个需求?
 
我想做比如象cooki一样的东西
 
那可以这样,先把追加的写入Tstringlist控件,然后把文件中的内容读入并且追加
到Tstringlist控件,然后把Tstringlist控件的内容写入该文件。
 
接受答案了.
 
后退
顶部