急急急！随机序列生成算法，在线等待，谢谢！

Question

生成指定长度的序列中包括较简单的字符，如“1”，“2”，“0”，和大小写的英文字母和标点符号，应该怎样写算法？
用随机函数生成的好像只有数字字符，请指教，急用，谢谢！

Answer 1

function RandomString(mChars: string; mLength: Integer): string;
var
  I: Integer;
begin
  Randomize;
  Result := '';
  if mChars = '' then Exit;
  for I := 1 to mLength do
    Result := Result + mChars[Random(Length(mChars)) + 1];
end; { RandomString }procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := RandomString('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ', 16);
end;