opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 22:00:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

No use for procedure debug() any longer.

Browse Source
This commit is contained in:
Ansgar Becker
2012-04-09 17:44:17 +00:00
parent 6ef3d17042
commit a7af9a9a2c
1 changed files with 0 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
source/helpers.pas
View File

@ -138,7 +138,6 @@ type
function ScanNulChar(Text: String): Boolean; function ScanNulChar(Text: String): Boolean;
function ScanLineBreaks(Text: String): TLineBreaks; function ScanLineBreaks(Text: String): TLineBreaks;
function RemoveNulChars(Text: String): String; function RemoveNulChars(Text: String): String;
procedure debug(txt: String);
function fixNewlines(txt: String): String; function fixNewlines(txt: String): String;
function GetShellFolder(CSIDL: integer): string; function GetShellFolder(CSIDL: integer): string;
function goodfilename( str: String ): String; function goodfilename( str: String ): String;
@ -213,7 +212,6 @@ var
RegPath: String = '\Software\' + APPNAME + '\'; RegPath: String = '\Software\' + APPNAME + '\';
PortableMode: Boolean = False; PortableMode: Boolean = False;
MutexHandle: THandle = 0; MutexHandle: THandle = 0;
dbgCounter: Integer = 0;
DecimalSeparatorSystemdefault: Char; DecimalSeparatorSystemdefault: Char;
@ -658,23 +656,6 @@ end;
{***
Use DebugView from SysInternals or Delphi's Event Log to view.
@param string Text to ouput
@return void
}
procedure debug(txt: String);
begin
if length(txt) = 0 then txt := '(debug: blank output?)';
// Todo: not thread safe.
dbgCounter := dbgCounter + 1;
txt := Format(APPNAME+': %d %s', [dbgCounter, txt]);
OutputDebugString(PChar(txt));
end;
{*** {***
Unify CR's and LF's to CRLF Unify CR's and LF's to CRLF