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

codetools: GetPossibleInitsForVariable: class

Browse Source 
git-svn-id: trunk@47885 -
This commit is contained in:
mattias 2015-02-18 18:19:39 +00:00
parent bb14ab36ed
commit 262dfbf8f2
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/codecompletiontool.pas
View File

@ -6100,10 +6100,14 @@ begin
end;
end;
ctnSetType:
begin
// set of
AddAssignment('[]');
end;
// set of
AddAssignment('[]');
ctnProcedureType:
// address of proc
AddAssignment('nil');
ctnClass,ctnClassInterface,ctnDispinterface,
ctnObjCClass,ctnObjCCategory,ctnObjCProtocol,ctnCPPClass:
AddAssignment('nil');
end;
end;
xtChar,

6
components/codetools/examples/scanexamples/initvars1.pas
View File

@ -23,7 +23,7 @@ end;
procedure TestLots({%H-}s: string; {%H-}c: char; {%H-}p: pointer;
{%H-}SignalState: TSignalState; {%H-}ShiftState: TShiftState;
{%H-}HelpCtx: THelpContext);
{%H-}HelpCtx: THelpContext; {%H-}Event: TNotifyEvent; {%H-}E: EStreamError);
begin
end;
@ -36,8 +36,10 @@ var
SignalState: TSignalState;
ShiftState: TShiftState;
HelpCtx: THelpContext;
Event: TNotifyEvent;
E: EStreamError;
begin
TestLots(s,c,p,SignalState,ShiftState,HelpCtx);
TestLots(s,c,p,SignalState,ShiftState,HelpCtx,Event,E);
end;
end.