paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 19:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: reduced output

Browse Source 
git-svn-id: trunk@1629 -
This commit is contained in:
lazarus 2002-04-23 17:24:23 +00:00
parent 088624b9cc
commit 271909d412
1 changed files with 1 additions and 1 deletions

2
components/codetools/codecompletiontool.pas
View File

@ -336,7 +336,7 @@ type
var Parts: array[TPropPart] of TAtomPosition;
function ReadSimpleSpec(SpecWord, SpecParam: TPropPart): boolean;
procedure ReadSimpleSpec(SpecWord, SpecParam: TPropPart);
begin
if Parts[SpecWord].StartPos>=1 then
RaiseExceptionFmt(ctsPropertySpecifierAlreadyDefined,[GetAtom]);