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

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

20190816092433.png (760.28 KB, 下载次数: 0)

下载附件

2019-8-16 11:40 上传

如何读写文本文件

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                 

    //出于对版本使用者机器的保护出发(非开发者),引擎中的脚本读写只允许Mir200Envir目录下的文件,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.

文章归发布者所有。发布者:爱到深处,转载请注明出处:https://www.anyitu.com

如该内容侵犯您的权利,请及时联系我们

微信公众号