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

Codetools: improved localization

Browse Source 
git-svn-id: trunk@32020 -
This commit is contained in:
maxim 2011-08-20 17:17:01 +00:00
parent ab89769de4
commit db322bd785
2 changed files with 3 additions and 2 deletions

1
components/codetools/codetoolsstrconsts.pas
View File

@ -124,6 +124,7 @@ ResourceString
ctsNotEnoughGenParams = 'Not enough actual generic parameters';
ctsTooManyGenParams = 'Too many actual generic parameters';
ctsSyntaxErrorInGeneric = 'Syntax error in generic type declaration';
ctsExpected = '"%s" expected';
ctsNoContextNodeFoundAtCursor = 'no context node found at cursor';
ctsInheritedKeywordOnlyAllowedInMethods =
'inherited keyword only allowed in methods';

4
components/codetools/finddeclarationtool.pas
View File

@ -1275,7 +1275,7 @@ begin
begin
MoveCursorToNodeStart(SpecializeParamsNode);
if not ReadNextAtomIsChar('<') then
FParamValuesTool.RaiseException('"<" expected');
FParamValuesTool.RaiseException(Format(ctsExpected, ['<']));
ReadNextAtom;
while CurPos.Flag = cafWord do
begin
@ -1284,7 +1284,7 @@ begin
if CurPos.Flag = cafComma then ReadNextAtom;
end;
if not AtomIsChar('>') then
FParamValuesTool.RaiseException('">" expected');
FParamValuesTool.RaiseException(Format(ctsExpected, ['>']));
end;
end;