Recent

• Simple Particle Engine for a shooter game
• Snake / Nibbles clone in C and Ncurses
• Please improve
• Parsing of XML data has high CPU usage
• Convert simple Javascript to jQuery plugin
• Active Record getting unique records
• List the files in a directory without the directory name or the extension
• clean the code
• ohs system, recruitment software, hr software, oh&s software, human resources software, ohs software
• Array parsing in a block

Popular

• Parsing of XML data has high CPU usage
• Please improve
• Snake / Nibbles clone in C and Ncurses
• List the files in a directory without the directory name or the extension
• Convert simple Javascript to jQuery plugin
• Simple Particle Engine for a shooter game
• Active Record getting unique records
• Breadth first cartesian product iterator
• php refactoring
• first BST

Pastable version of TStrings IndexOfValue

<pre class='prettyprint' language='pascal'>function indexOfValue(list : TStrings; value : string): integer; begin Result := 0; while (Result &lt; list.Count) and (not SameText(list.ValueFromIndex[Result], value)) do Inc(Result); if Result &gt;= list.Count then Result := -1; end;</pre> <a href="http://www.refactormycode.com/codes/1042-tstrings-indexofvalue" 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>