//如需包含小写字母,数字,在S中添加。 function aaa(Num:Integer): string; var i: Byte; s: string; begin s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; Result := ''; for i := 0 to Num-1 do Result := Result + s[Random(Length(s)-1)+1]; end;