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

IDE: quick fix cant find unit: also apply to can not find unit

Browse Source 
git-svn-id: trunk@39952 -
This commit is contained in:
mattias 2013-01-24 12:52:25 +00:00
parent 95827bfb41
commit d3667cf091
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/msgquickfixes.pas
View File

@ -1004,18 +1004,13 @@ end;
function TQuickFixUnitNotFound_Remove.IsApplicable(Line: TIDEMessageLine
): boolean;
const
SearchStr = ') Fatal: Can''t find unit ';
var
Msg: String;
p: integer;
begin
Result:=false;
if (Line.Parts=nil) then exit;
if Line.Parts=nil then exit(false);
Msg:=Line.Msg;
p:=System.Pos(SearchStr,Msg);
if p<1 then exit;
Result:=true;
Result:=(System.Pos(') Fatal: Can''t find unit ',Msg)>0)
or (System.Pos(') Fatal: Can not find unit ',Msg)>0);
end;
procedure TQuickFixUnitNotFound_Remove.Execute(const Msg: TIDEMessageLine;
@ -1037,12 +1032,12 @@ begin
end;
// get unitname
if not REMatches(Msg.Msg,'Fatal: Can''t find unit ([a-z_0-9]+) ','I') then begin
if not REMatches(Msg.Msg,'Fatal: Can(''t| not) find unit ([a-z_0-9]+) ','I') then begin
DebugLn('TQuickFixUnitNotFound_Remove invalid message ',Msg.Msg);
ShowError('QuickFix: UnitNotFound_Remove invalid message '+Msg.Msg);
exit;
end;
AnUnitName:=REVar(1);
AnUnitName:=REVar(2);
DebugLn(['TQuickFixUnitNotFound_Remove.Execute Unit=',AnUnitName]);
if (AnUnitName='') or (not IsValidIdent(AnUnitName)) then begin