取得任意位的随机数
摘要：
function TForm1.RandomStr(UP: boolean; Low: boolean; Number: boolean; Digit: integer):string;//--大写字母,小写字母,数字,字符串的位数var i: Byte; s: string;begin if UP then s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' else s := ''; if Low then s := s + 'abcdefghijklmnopqrstuvwxyz'; if Number then s := s 阅读全文
posted @ 2012-02-08 10:58 long6 阅读(279) 评论(0) 推荐(1) 编辑
