debugunit.pas

来自「很多人想要研究的真彩传奇2客户端,一般来说传奇2的客户端是256色的,现在出了个」· PAS 代码 · 共 24 行

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.