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 APlayernil then
begin
//针对APlayer做些事情
end;
AList.Delete(I); //删除文本中的一条记录
end;
AList.SaveToFile(Gamelib.EnvirPath + 'UnMaster.txt'); //把修改后的文件保存下来
end;
finally
AList.Free;
end;
end;
end. 我也是坐沙发的 锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！ LZ敢整点更有创意的不？兄弟们等着围观捏~ 站长辛苦了，来给你送棒棒糖了 谢谢站长分享 锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！ 顶起顶起顶起 纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下 向楼主学习