paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 10:48:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: replaced halt with raiseexception

Browse Source 
git-svn-id: trunk@2779 -
This commit is contained in:
lazarus 2002-08-18 08:53:59 +00:00
parent bc324f7673
commit 24320a1606
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/main.pp
View File

@ -5777,14 +5777,12 @@ begin
BeginCodeTool(TDesigner(Sender),ActiveSrcEdit,ActiveUnitInfo,true); BeginCodeTool(TDesigner(Sender),ActiveSrcEdit,ActiveUnitInfo,true);
ActiveForm:=TDesigner(Sender).Form; ActiveForm:=TDesigner(Sender).Form;
if ActiveForm=nil then begin if ActiveForm=nil then begin
writeln('[TMainIDE.OnDesignerAddComponent] Error: TDesigner without a form'); RaiseException('[TMainIDE.OnDesignerAddComponent] Error: TDesigner without a form');
halt;
end; end;
// find source for form // find source for form
i:=Project1.IndexOfUnitWithForm(ActiveForm,false,nil); i:=Project1.IndexOfUnitWithForm(ActiveForm,false,nil);
if i<0 then begin if i<0 then begin
writeln('[TMainIDE.OnDesignerAddComponent] Error: form without source'); RaiseException('[TMainIDE.OnDesignerAddComponent] Error: form without source');
halt;
end; end;
ActiveUnitInfo:=Project1.Units[i]; ActiveUnitInfo:=Project1.Units[i];
// remove component definition to form source // remove component definition to form source
@ -5957,8 +5955,7 @@ begin
// codetools consistency check // codetools consistency check
c:=CodeToolBoss.ConsistencyCheck; c:=CodeToolBoss.ConsistencyCheck;
if c<>0 then begin if c<>0 then begin
writeln('CodeToolBoss.ConsistencyCheck=',c); RaiseException('CodeToolBoss.ConsistencyCheck='+IntToStr(c));
Halt;
end; end;
end; end;
@ -7131,6 +7128,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.384 2002/09/16 16:06:19 lazarus
MG: replaced halt with raiseexception
Revision 1.383 2002/09/16 06:44:06 lazarus Revision 1.383 2002/09/16 06:44:06 lazarus
MG: added localization from Vasily MG: added localization from Vasily