如何随机生成GB2312中特定的某些汉字? 本帖最后由 xiaotian97 于 2010-02-27 12:25:09 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 自己选择一批汉字, 写在一个字符串中, 然后随机从中取出某个汉字。例如:const MyChars: String = '随机选择一批汉字';procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage (Copy(MyChars, Random(Length(MyChars) div 2) * 2 + 1, 2));end; Dll返回DataSet数据集合问题!老提示invalid pointer operation 设置自己作的WEBBROWSER为默认浏览器,但不能进行默认浏览 dcom连接,客户机总是提示:接口不支持! 大家进来看看啊! TImage中坐标的问题? 哪有Delphi4技术内幕这本书? 再这样下去,我会跳楼的!!!程序调试时乱跳!!! 关于控件的问题 SOS!高手接分!(有关数据库连接的问题) access数据库的小程序如何打包发布 快过年了,没有兴奋只有失落,散分 学校开学了, 给一个开学日期(第一周开始),求本周是第几周的算法
const
MyChars: String = '随机选择一批汉字';procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (Copy(MyChars, Random(Length(MyChars) div 2) * 2 + 1, 2));
end;