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

趣游论坛 · 发表于 2019-8-16 11:40:43

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

天空sky · 发表于 2019-8-16 11:40:44

有一种回帖叫做抢沙发

奈何桥 · 发表于 2019-8-16 13:19:11

呵呵，低调，低调！

九天劫 · 发表于 2019-8-16 16:20:02

LZ帖子不给力，勉强给回复下吧

黑色的记忆 · 发表于 2019-8-16 18:04:19

路过的帮顶

风萧萧 · 发表于 2019-8-16 19:54:50

这贴内容不错

大狗熊 · 发表于 2019-8-16 21:00:24

路过帮顶嘿嘿

李佳佳 · 发表于 2019-8-16 21:23:32

路过帮顶嘿嘿

学渣 · 发表于 2019-8-16 22:31:28

是爷们的娘们的都帮顶！大力支持

豪杰 · 发表于 2019-8-16 23:06:39

路过

`设为首页收藏本站`

[传奇一键替换包]

[其它手游引擎] 77M2引擎如何读写文本文件，传奇一条龙版本中读写文本文件的方法。

新月传奇复古沉默单职业-西域大陆-变异沃玛

武易传奇凤凰怀旧三职业传奇版本-霸王圣殿-

卧龙之境单职业传奇服务端版本带假人系统-

全新玛法沉默单职业传奇gm基地带假人-影月

寻梦侠之大者单职业传奇版本带假人功能-玉

魔幻之影新6职业微变复古版本-极寒冰域-雪

古剑江湖暗黑复古神器无限刀单职业传奇服务

大话龙吟单职业传奇版本带假人-九霄云殿-神

灌水之王

活跃会员

突出贡献

优秀版主

荣誉管理

论坛元老