debugunit.pas

很多人想要研究的真彩传奇2客户端,一般来说传奇2的客户端是256色的,现在出了个飞尔真彩传奇,想必很吸引大家的眼球.现在把我收藏的拿出来一起共享

unit DebugUnit;

interface

  procedure DebugOut(FileName: string; Text: string);

implementation

  procedure DebugOut(FileName: string; Text: string);
  var
    F: TextFile;
  begin
    FileMode := 2;
    AssignFile(F, FileName);
    Rewrite(F);
    try
      WriteLn(F, Text);
    finally
      CloseFile(F);
    end;
  end;

end.