77M2引擎如何读写文本文件，传奇一条龙版本中读写文本文件的方法。

: 20)

如何读写文本文件

unit Q2;

inte**ce

  uses Classes, SysUtils;        

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

implementation

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

var

  AList: TStrings;

  AName: String;

  I: Integer;   

  APlayer: TPlayObject;   

begin

  //TStrings访问文本文件的方式：

    AList := TStringList.Create;

  try                 

    //出于对版本使用者机器的保护出发(非开发者),引擎中的脚本读写只允许Mir200\Envir目录下的文件,Gamelib.EnvirPath可以取得

    if SysUtils.FileExists(Gamelib.EnvirPath + ‘UnMaster.txt’) then //如果文件存在

    begin

      AList.LoadFromFile(Gamelib.EnvirPath + ‘UnMaster.txt’); //加载文件

      for I := AList.Count – 1 downto 0 do

      begin

        AName := AList[I]; //取出一个名字

        APlayer := Gamelib.FindPlayer(AName); //查找玩家

        if APlayer <> nil then

        begin

          //针对APlayer做些事情      

        end;

        AList.Delete(I); //删除文本中的一条记录

      end;

      AList.SaveToFile(Gamelib.EnvirPath + ‘UnMaster.txt’); //把修改后的文件保存下来

    end;

  finally

    AList.Free;

  end;

end;

end.