能给的分我全给了,大家帮帮忙吧vc中是这样实现独占方式打开的:CFile f("d:\\test.txt", CFile::modeExclusive);

解决方案 »

  1.   

    在Delphi中也可以呀,
    你可以参考Delphi SDK Help的OpenFile()
    你也可以检查一下文件是否存在用FileExists().
    自己看看帮助吧。
      

  2.   

    可是这样,就不能使用Writeln和Realln了
    读写数据时要麻烦一点
      

  3.   

    Use FileOpen()Open it, use Append to Append data. use FileClose() to close it! 
    To get more info, Just turn to "Delphi Help"!
      

  4.   

    var strlist: TStringList;
    begin
      strlist := TStringList.create;
      strlist.add('abcd');
      strlist.savetofile('d:\test.txt');
      strlist.free;
    end;
      

  5.   

    1,if Not FileExist(文件完整路径名)Then AssignFile(文件完整路径名)
      Rewrite(文件名)
    2,Append(文件名)
       Writeln(文件名,写入的东西)
    3,CloseFile(文件名)
      

  6.   

    记得给分:
    var
    f:TextFile;
    begin
    if FileExists('filename') then //文件存在
       begin
         Assign(f,'filename');//先关联文件
         Reset(f);
         WriteLn(f,'abc');
         Close(f);
       end
    else  //文件不存在
       begin
         Assign(f,'Filename');
         ReWrite(f);
         Writeln(f,'abc');
         Close(f);
       end;
       
       
      

  7.   

    必须承认,任何编程工具都有它方便的地方,否则就没有存在的价值了。
    毫无疑问,VC也肯定有比delphi方便的地方。
      

  8.   

    var
      F: THandle;
    begin
      if FileExists('abc.dat') then
        F := FileOpen('abc.dat', fmShareExclusive)
      else 
        F := FileOpen('abc.dat', fmCreate);
      try
        FileWrite(F, PChar('abc')^, length('abc'));
      finally
        CloseHandle(F);
      end;
    end;