Commit ca029919b3350ff272732ca152704cb9da3aab33
1 parent
bf695d78
Exists in
master
Linhas adicinadas no workshop para log de debug incondicional alteradas para formato original
git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@1300 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing
1 changed file
with
3 additions
and
4 deletions
Show diff stats
CACIC_Library.pas
| ... | ... | @@ -1017,15 +1017,14 @@ end; |
| 1017 | 1017 | function TCACIC.isInDebugMode(pStrDetailName : String = '') : boolean; |
| 1018 | 1018 | var strTeDebugging : String; |
| 1019 | 1019 | begin |
| 1020 | - {Result := checkIfFileDateIsToday(getLocalFolderName + 'Temp\Debugging'); | |
| 1020 | + Result := checkIfFileDateIsToday(getLocalFolderName + 'Temp\Debugging'); | |
| 1021 | 1021 | if Result and FileExists(getLocalFolderName + 'Temp\Debugging\Debugging.conf') and (pStrDetailName <> '') then |
| 1022 | 1022 | Begin |
| 1023 | 1023 | strTeDebugging := getValueFromFile('Configs','TeDebugging',getLocalFolderName + 'Temp\Debugging\Debugging.conf',false); |
| 1024 | 1024 | if (pos(ExtractFileName(ParamStr(0)) + '.' + pStrDetailName, strTeDebugging) = 0) and |
| 1025 | 1025 | (pos(ExtractFileName(ParamStr(0)) + '.*' , strTeDebugging) = 0) then |
| 1026 | - Result := false; //Workshop retornar result para false apos testes. | |
| 1027 | - End;} | |
| 1028 | - Result := True; // Workshop Alterar apos testes. | |
| 1026 | + Result := false; | |
| 1027 | + End; | |
| 1029 | 1028 | end; |
| 1030 | 1029 | |
| 1031 | 1030 | // Rotina obtida em http://www.swissdelphicenter.ch/torry/showcode.php?id=266 | ... | ... |