paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 15:32:35 +02: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;
{ check for read-only }
if pciUnit <> nil then
if pciUnit.ReadOnly then
begin
if pciUnit.ReadOnly then
begin
SendStatusMessage(pciUnit.FileName, 'Unit is read only. Cannot format ',
mtInputError, -1, -1);
exit;
end;
SendStatusMessage(pciUnit.FileName, 'Unit is read only. Cannot format ',
mtInputError, -1, -1);
exit;
end;
fsCurrentUnitName := pciUnit.FileName;