From 5429c2b84b7c740c85b883677d3d007be6da9ecf Mon Sep 17 00:00:00 2001 From: blikblum Date: Sat, 24 Sep 2011 13:09:18 +0000 Subject: [PATCH] lcl: Change TList to TFpList (DBCtrls.FieldClasses) git-svn-id: trunk@32497 - --- lcl/dbctrls.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp index 35af995d0b..4145e1b4a6 100644 --- a/lcl/dbctrls.pp +++ b/lcl/dbctrls.pp @@ -1283,13 +1283,13 @@ procedure Register; implementation var - FieldClasses: TList; + FieldClasses: TFpList; procedure RegFields(const AFieldClasses: array of TFieldClass); var I: Integer; FieldClass: TFieldClass; begin - if FieldClasses = nil then FieldClasses := TList.Create; + if FieldClasses = nil then FieldClasses := TFpList.Create; for I := Low(AFieldClasses) to High(AFieldClasses) do begin FieldClass := AFieldClasses[I]; if (FieldClass <> Nil) And (FieldClasses.IndexOf(FieldClass) = -1) then