Recent

• How to get accepted in Fileice (200% Working) 22/2012
• Premium Account
• FILE HOSTS PREMIUM ACCOUNT
• ALL FILE HOST PREMIUM ACCOUNTS
• Zynga Slingo Trainer v5.12
• iTunes Gift Card Generator V3.1 2012
• Diablo 3 GOLD Coins FREE
• Working PS3 Jailbreak 3.65 And 3.66
• ExtaBit Premium Accounts and Cookies
• Steam Wallet Hack - Money Adder & Hack v3

Popular

• XBOX POINTS GENERATOR - MICROSOFT POINTS GENERATOR v1.2012
• 11 may 2012 premium uploading accounts 100% working
• Free Microsoft Points
• Free Microsoft Points - Microsoft Points Generator - Xbox Live Codes 2012
• Car Town Free Blue Points Hack
• Free CarTown Blue Points Generator and CarTown Templates
• Better way to get content via jQuery $.get()
• Free Microsoft Points
• Simple Days Purger
• Sharecash Downloader Bypass Surveys New 05/2012

Pastable version of custom index for class(TList)

<pre class='prettyprint' language='pascal'>function TMylist.GetNameIndex(aName: Sting): integer; var I: integer; begin i := 0; result := -1; while (i &lt; Count - 1) and (not sametext(Items[i].name = aName)) do Inc(i); if sametext(Items[i].name = aName) then Result := i end; function TMylist.GetItems(Index: integer): TMylist; begin Result := TMylist(inherited Items[index]); end;</pre> <a href="http://www.refactormycode.com/codes/754-custom-index-for-class-tlist" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>