paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 17:20:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added CloseDebugOutput

Browse Source 
git-svn-id: trunk@11267 -
This commit is contained in:
mattias 2007-06-02 13:58:39 +00:00
parent 5aeedb0533
commit 5d8235febb
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/lclproc.pas
View File

@ -249,6 +249,8 @@ procedure DebuglnThreadLog(const Msg: string); overload;
procedure DebuglnThreadLog(Args: array of const); overload; procedure DebuglnThreadLog(Args: array of const); overload;
procedure DebuglnThreadLog; overload; procedure DebuglnThreadLog; overload;
procedure CloseDebugOutput;
// some string manipulation functions // some string manipulation functions
function StripLN(const ALine: String): String; function StripLN(const ALine: String): String;
function GetPart(const ASkipTo, AnEnd: String; var ASource: String): String; overload; function GetPart(const ASkipTo, AnEnd: String; var ASource: String): String; overload;
@ -1301,13 +1303,19 @@ begin
DebugTextAllocated := true; DebugTextAllocated := true;
end; end;
procedure FinalizeDebugOutput; procedure CloseDebugOutput;
begin begin
if DebugTextAllocated then begin if DebugTextAllocated then begin
Close(DebugText^); Close(DebugText^);
Dispose(DebugText); Dispose(DebugText);
DebugTextAllocated := false; DebugTextAllocated := false;
end; end;
DebugText := nil;
end;
procedure FinalizeDebugOutput;
begin
CloseDebugOutput;
end; end;
procedure DebugLn(Args: array of const); procedure DebugLn(Args: array of const);