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

fixed typo

Browse Source 
git-svn-id: trunk@9483 -
This commit is contained in:
mattias 2006-06-22 23:02:34 +00:00
parent 9acc96abef
commit 6232bcc33e
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/eventcodetool.pas
View File

@ -202,7 +202,7 @@ begin
SetLength(ResultType,Len); SetLength(ResultType,Len);
Move(TypeData^.ParamList[Offset],ResultType[1],Len); Move(TypeData^.ParamList[Offset],ResultType[1],Len);
inc(Offset,Len); inc(Offset,Len);
if Result<>'' then if ResultType<>'' then
Result:=Result+':'+ResultType; Result:=Result+':'+ResultType;
end; end;
if phpInUpperCase in Attr then Result:=UpperCaseStr(Result); if phpInUpperCase in Attr then Result:=UpperCaseStr(Result);