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

lcl: Change TList to TFpList (DBCtrls.FieldClasses)

Browse Source 
git-svn-id: trunk@32497 -
This commit is contained in:
blikblum 2011-09-24 13:09:18 +00:00
parent 355083fd19
commit 5429c2b84b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dbctrls.pp
View File

@ -1283,13 +1283,13 @@ procedure Register;
implementation implementation
var var
FieldClasses: TList; FieldClasses: TFpList;
procedure RegFields(const AFieldClasses: array of TFieldClass); procedure RegFields(const AFieldClasses: array of TFieldClass);
var I: Integer; var I: Integer;
FieldClass: TFieldClass; FieldClass: TFieldClass;
begin begin
if FieldClasses = nil then FieldClasses := TList.Create; if FieldClasses = nil then FieldClasses := TFpList.Create;
for I := Low(AFieldClasses) to High(AFieldClasses) do begin for I := Low(AFieldClasses) to High(AFieldClasses) do begin
FieldClass := AFieldClasses[I]; FieldClass := AFieldClasses[I];
if (FieldClass <> Nil) And (FieldClasses.IndexOf(FieldClass) = -1) then if (FieldClass <> Nil) And (FieldClasses.IndexOf(FieldClass) = -1) then