paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 07:39:29 +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;
end; end;
ctnSetType: ctnSetType:
begin // set of
// set of AddAssignment('[]');
AddAssignment('[]'); ctnProcedureType:
end; // address of proc
AddAssignment('nil');
ctnClass,ctnClassInterface,ctnDispinterface,
ctnObjCClass,ctnObjCCategory,ctnObjCProtocol,ctnCPPClass:
AddAssignment('nil');
end; end;
end; end;
xtChar, 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; procedure TestLots({%H-}s: string; {%H-}c: char; {%H-}p: pointer;
{%H-}SignalState: TSignalState; {%H-}ShiftState: TShiftState; {%H-}SignalState: TSignalState; {%H-}ShiftState: TShiftState;
{%H-}HelpCtx: THelpContext); {%H-}HelpCtx: THelpContext; {%H-}Event: TNotifyEvent; {%H-}E: EStreamError);
begin begin
end; end;
@ -36,8 +36,10 @@ var
SignalState: TSignalState; SignalState: TSignalState;
ShiftState: TShiftState; ShiftState: TShiftState;
HelpCtx: THelpContext; HelpCtx: THelpContext;
Event: TNotifyEvent;
E: EStreamError;
begin begin
TestLots(s,c,p,SignalState,ShiftState,HelpCtx); TestLots(s,c,p,SignalState,ShiftState,HelpCtx,Event,E);
end; end;
end. end.