0
votes
Vote UpVote

Fun Code of the Week #2

Nick Hodges – function RandomString(aLength: Integer; aInputChars: string): string; begin Result := ''; if Length(aInputChars) <= 0 then begin Exit; end; Randomize; repeat Result := Result + aInputChars[Random(Length(aInputChars)) + 1]; until (Length(Result) = aLength); end;
Favorite? Off-Topic? nick@nickhodges.com @ 2011-11-07 21:51

Statistics

Visits: 726
Votes: 0
Favorites: 0
Off-Topic: 0

Visits by Source

User Actions

Users who voted for this posting

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)