64GM论坛 › 传奇技术教程 › 77M2引擎如何读写文本文件，传奇一条龙版本中读写文本文件的方法

虫捩笛 发表于 2023-1-29 11:32:13

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; //取出一个名字
      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.

久雄眨 发表于 2023-1-29 11:33:11

感谢站长努力更新这么多资源

嗽浴蟹 发表于 2023-1-29 11:33:55

爱上论坛-速记=爱上你GM,版本下载,素材下载,脚本下载,服务器租用,传奇一条龙,等各种业务都有!

神钨厨 发表于 2023-1-29 11:34:40

坪悼 发表于 2023-1-29 11:34:55

仿盛大热血传奇

戚心香 发表于 2023-1-29 11:35:05

sf999网站

宠物乱斗 发表于 2023-11-20 17:53:23

感谢楼主提供这么好的论坛」

帝王火龙 发表于 2023-11-20 20:46:55

这个帖子不回对不起自己！

独家迷失 发表于 2023-11-21 01:12:08

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

金币合击 发表于 2023-11-21 07:45:51

感谢站长分享开区一条龙教程，新手能学习到很多知识。

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