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

ide: full compiler message template is shown, if no param name information is given for the message

Browse Source 
git-svn-id: trunk@24331 -
This commit is contained in:
dmitry 2010-04-01 07:35:24 +00:00
parent 7c1607e0b4
commit 4536384988
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/compileroptions.pp
View File

@ -4677,7 +4677,7 @@ begin
AddHash(msgconf);
end;
msgconf.MsgType := AMsgType;
msgconf.MsgText := AMsgText; //ReplaceParamsArray(ACompilerMsg, ReplaceParams);
msgconf.MsgText := AMsgText;
msgconf.Ignored := AIgnored;
SetLength(prm, MaxMsgParams);
GetParams(AMsgIndex, prm, cnt);
@ -4706,6 +4706,10 @@ var
nm : Integer;
p : Integer;
begin
if length(ReplaceParams)=0 then begin
Result:=ACompilerMsg;
Exit;
end;
i := 1;
p := 1;
Result := '';
@ -4715,8 +4719,11 @@ begin
nm := 0;
if GetNextNumber(ACompilerMsg, j, nm) then begin
Result := Result + Copy(ACompilerMsg, p, i - p);
if nm <= length(ReplaceParams) then Result := Result + ReplaceParams[nm-1];
p := j;
if nm <= length(ReplaceParams) then
Result := Result + ReplaceParams[nm-1]
else
Result:=Result+'$'+IntToStr(nm);
p := j;
i := p;
end else
inc(i);
@ -4929,7 +4936,7 @@ end;
function TCompilerMessageConfig.GetUserText(const ReplaceParams: array of string): string;
begin
Result := Format('%s', [ReplaceParamsArray(MsgText, ReplaceParams) ]);
Result := ReplaceParamsArray(MsgText, ReplaceParams);
end;
function TCompilerMessageConfig.GetUserText: string;
@ -4939,7 +4946,8 @@ var
begin
if Assigned(fOwner) then begin
SetLength(prm, MaxMsgParams);
fOwner.GetParams(MsgIndex, prm, cnt);
fOwner.GetParams(MsgIndex, prm, cnt);
SetLength(prm, cnt);
Result := GetUserText(prm);
end else
Result := GetUserText([]);