3
votes
Vote UpVote

Fun Code of the Week #1

Nick Hodges – unit uIsPalindrome; interface function IsPalindrome(const aString: string): Boolean; implementation uses        Spring.Collections      , {$IF CompilerVersion >= 230}System.{$IFEND}SysUtils      ; function CleanString(const aString: string): string; var   C: char; begin   // Remove all non-alpha chars and make all lower case   // Spaces don't matter, so let's count only letters   Result := '';   for C in LowerCase(aString) do   begin     if CharInSet(C, ['a'..'z', 'A'..'Z']) then     ...
Favorite? Off-Topic? nick@nickhodges.com @ 2011-10-07 02:20

Statistics

Visits: 785
Votes: 3
Favorites: 0
Off-Topic: 0

Visits by Source

User Actions

Users who voted for this posting

ket555
Tier777
Wouter
Subscribe:
Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News

Sponsor

 
Please login or register to use this functionality.
(click on this box to dismiss)