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

IDEIntf: using TFPList

Browse Source 
git-svn-id: trunk@58011 -
This commit is contained in:
mattias 2018-05-23 13:49:06 +00:00
parent de467a095c
commit 333f3c4a38
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/ideintf/propedits.pp
View File

@ -2092,8 +2092,8 @@ const
);
var
PropertyEditorMapperList:TList;
PropertyClassList:TList;
PropertyEditorMapperList:TFPList;
PropertyClassList:TFPList;
type
PPropertyClassRec=^TPropertyClassRec;
@ -2272,7 +2272,7 @@ var
begin
if PropertyType=nil then exit;
if PropertyClassList=nil then
PropertyClassList:=TList.Create;
PropertyClassList:=TFPList.Create;
New(P);
P^.PropertyType:=PropertyType;
P^.PersistentClass:=PersistentClass;
@ -2286,7 +2286,7 @@ var
P:PPropertyEditorMapperRec;
begin
if PropertyEditorMapperList=nil then
PropertyEditorMapperList:=TList.Create;
PropertyEditorMapperList:=TFPList.Create;
New(P);
P^.Mapper:=Mapper;
PropertyEditorMapperList.Insert(0,P);