From 3ff2c569d2288234d93a29abed645e97b91964df Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 18 Oct 2014 19:29:00 +0000
Subject: [PATCH] LCL: clean up

git-svn-id: trunk@46595 -
---
 lcl/include/customlistbox.inc | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index e64fa55114..b4dcd0f919 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -134,7 +134,7 @@ end;
 procedure TCustomListBox.FinalizeWnd;
 var
   NewStrings: TExtendedStringList;
-  i, Cnt: integer;
+  i: integer;
 begin
   LockSelectionChange;
 
@@ -149,8 +149,7 @@ begin
     // copy items (text+objects) from the interface items list
     NewStrings.Assign(Items);
     // copy items attributes
-    Cnt := Items.Count;
-    for i:=0 to Cnt-1 do
+    for i:=0 to Items.Count-1 do
       AssignItemDataToCache(i, NewStrings.Records[i]);
 
     // free the interface items list