抢分啦！有关文本文件操作，简单，（分数一直要加）

Question

1、if FileExists('c:\xxx.xxx') then 文件存在2、
var 
  F: TextFile;
  S: string;
begin
    AssignFile(F, 'c:\xxx.xxx');   
    ReWrite(F);
    Writeln(F, S);                          
    CloseFile(F);
end;3、追加文件将上面的ReWrite(F)改成Append(F)即可；

Answer 1

4、查找一个词最土的办法是读文件到buffer后一位一位的匹配。

Answer 2

FileExists(FileName)
Rewrite(file)
Append(f:textfile)
readln一行一行的检测，得到该词后，FilePos

Answer 3

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
用这个就行了

Answer 4

Var F:FileText;
AssignFile(F,fSaveFileName);
if FileExists(fSaveFileName) then Append(F)
                             else Rewrite(F);

Answer 5

错了,faint,是var F: TextFile;

Answer 6

HTTP 500 - 内部服务器错误 
Internet Explorer 

Answer 7

用API函数:CREATFILE就可以!
具体参数请参考帮助!