paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 22:19:17 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontool.pas
View File

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