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

admin

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

123457389

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

俏蝶吹

不错 支持下

北右酝

无论是不是沙发都得回复下

风男人1984

感谢楼主，下载试试看

123457736

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

此人正在学习

支持你哈...................................

湘军

边撸边过

碧雲居士

我也是坐沙发的

安桐AnnTong

支持，赞一个