paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-27 09:41:55 +01:00
Code Issues Packages Projects Releases Wiki Activity

JCF: remove useless code. There already is an assertion for (pciUnit <> nil).

Browse Source 
git-svn-id: trunk@46060 -
This commit is contained in:
juha 2014-08-22 17:25:18 +00:00
parent feb85653da
commit eb2bda913b
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/jcf2/ReadWrite/EditorConverter.pas
View File

@ -131,14 +131,11 @@ begin
GetRegSettings.ReadAll; GetRegSettings.ReadAll;
{ check for read-only } { check for read-only }
if pciUnit <> nil then if pciUnit.ReadOnly then
begin begin
if pciUnit.ReadOnly then SendStatusMessage(pciUnit.FileName, 'Unit is read only. Cannot format ',
begin mtInputError, -1, -1);
SendStatusMessage(pciUnit.FileName, 'Unit is read only. Cannot format ', exit;
mtInputError, -1, -1);
exit;
end;
end; end;
fsCurrentUnitName := pciUnit.FileName; fsCurrentUnitName := pciUnit.FileName;