[help] 这个函数什么功能呀？？？(50分)

Function RandNum(Types, Len: Integer
Const CustomStr: String = ''): String;

Const CharStr: Array[0..2] Of String = ('0123456789', 'abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ');

Var
S: String
i: Integer;

Begin
Randomize;
Case Types Of
0: S := CharStr[0];
1: S := CharStr[1];
2: S := CharStr[2];
3: S := CharStr[0] + CharStr[1];
4: S := CharStr[1] + CharStr[2];
5: S := CharStr[0] + CharStr[2];
End;
S := S + CustomStr;
Result := '';
For i := 1 To Len Do
Result := Result + S[Random(Length(S) - 1) + 1];
End;

下面这句是调用的它。
BeginName := Ini.ReadString('Config', 'BeginName', RandNum(1, 6));

是一个生成随机字符串的函数
Function RandNum(Types, Len: Integer
Const CustomStr: String = ''): String;
参数：
Types: 确定生成的随机串的字符，
0: 数字;
1:小写字母
2:大写字母
3:数字＋小写字母
4:小写字母＋大写字母
5:数字＋大写字母
Len: 生成随机字符串的长度
CustomStr: 自定义的字符，即生成的随机串中除了Types中指定的字符外还可以包括的字符

你的调用生成随机小写字母。

接受答案了.

;