paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

replaced writeln with debugln (bug #1151)

Browse Source 
git-svn-id: trunk@7649 -
This commit is contained in:
vincents 2005-09-08 05:31:17 +00:00
parent ede166af33
commit b7c4f58fbd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
doceditor/frmmain.pp
View File

@ -27,8 +27,8 @@ unit FrmMain;
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus,
ActnList, ExtCtrls, ComCtrls, StdCtrls, pgeditor,process, fpdeutil;
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
Menus, ActnList, ExtCtrls, ComCtrls, StdCtrls, pgeditor,process, fpdeutil;
type
TNodeType = (ntFile,ntPackage,ntModule,ntElement,ntTopic);
@ -653,7 +653,7 @@ begin
cmd:=cmd+' --disable-function-results';
If DisableArguments then
cmd:=cmd+' --disable-arguments';
Writeln(cmd);
DebugLn(cmd);
With TProcess.Create(Nil) do
try
CommandLine:=cmd;
@ -661,7 +661,7 @@ begin
Execute;
If (ExitStatus<>0) then
begin
Writeln('error detected ',ExitStatus );
DebugLn('error detected ',DbgS(ExitStatus));
If FileExists(OutputFile) then
Result:=MessageDlg(SSkelErrorWithFile,[ExitStatus],mtWarning,mbYesNo,0)=mrYes
else