hedgewars/uMisc.pas
changeset 3914 c5c903c6225b
parent 3859 ed3b6b3e9d6a
child 3928 2560731c860d
child 3929 9a4bbc1f67a2
--- a/hedgewars/uMisc.pas	Mon Sep 27 04:58:26 2010 +0200
+++ b/hedgewars/uMisc.pas	Mon Sep 27 15:40:20 2010 +0200
@@ -43,6 +43,7 @@
     //userNick is in uChat
     recordFileName  : shortstring = '';
     cReadyDelay     : Longword    = 5000;
+    cLogfileBase    : shortstring = 'debug';
 //////////////////////////
     
     isCursorVisible : boolean;
@@ -808,7 +809,7 @@
 {$IFDEF DEBUGFILE}
 {$I-}
 {$IFDEF IPHONEOS}
-    Assign(f,'../Documents/debug.txt');
+    Assign(f,'../Documents/hw-' + cLogfileBase + '.log');
     Rewrite(f);
 {$ELSE}
     if (ParamStr(1) <> '') and (ParamStr(2) <> '') then
@@ -816,7 +817,7 @@
         begin
             for i:= 0 to 7 do
             begin
-                assign(f, ExtractFileDir(ParamStr(2)) + '/debug' + inttostr(i) + '.txt');
+                assign(f, ExtractFileDir(ParamStr(2)) + '/Logs/' + cLogfileBase + inttostr(i) + '.log');
                 rewrite(f);
                 if IOResult = 0 then break;
             end;
@@ -826,7 +827,7 @@
         begin
             for i:= 0 to 7 do
             begin
-                assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt');
+                assign(f, ParamStr(1) + '/Logs/' + cLogfileBase + inttostr(i) + '.log');
                 rewrite(f);
                 if IOResult = 0 then break;
             end;