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

improved comment

Browse Source 
git-svn-id: trunk@9489 -
This commit is contained in:
mattias 2006-06-23 10:43:18 +00:00
parent b4d02ab283
commit 9d1e35fd96
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/examples/addmethod.lpr
View File

@ -72,9 +72,11 @@ begin
MethodName:='NewProc'+IntToStr(i); MethodName:='NewProc'+IntToStr(i);
MethodDefinition:='procedure '+MethodName MethodDefinition:='procedure '+MethodName
+'(Sender:TObject; AValue:integer);'; +'(Sender:TObject; AValue:integer);';
// check, that we don't add an already existing method. // check, to not add an already existing method.
// Create a search mask: no class name, no 'procedure' keyword, no comments, // Create a search mask: only method names, parameter types and semicolon.
// no unneeded spaces, no result type, no parameter names, uppercase // no class name, no 'procedure' keyword, no comments, no defaults,
// no unneeded spaces, no result type, no parameter names, uppercase,
// no modifiers (e.g. virtual)
CleanMethodDefinition:=UpperCase(MethodName+'(:TObject;:integer);'); CleanMethodDefinition:=UpperCase(MethodName+'(:TObject;:integer);');
if not Tool.ProcExistsInCodeCompleteClass(CleanMethodDefinition) then if not Tool.ProcExistsInCodeCompleteClass(CleanMethodDefinition) then
Tool.AddClassInsertion(CleanMethodDefinition, MethodDefinition, MethodName, Tool.AddClassInsertion(CleanMethodDefinition, MethodDefinition, MethodName,