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

如何读写文本文件
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.

我也是坐沙发的

锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！

LZ敢整点更有创意的不？兄弟们等着围观捏~

站长辛苦了，来给你送棒棒糖了

谢谢站长分享

锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！

顶起顶起顶起

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

向楼主学习