如何随机生成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; 帮帮忙用过TbsSkinFileListView的请进来,或类似控件的 请教删除特定文件中内容 用delphi如何控制传真服务??(我是刚来的,分不多,图吉利吧!88) 如何把listbox中选中的项目删除掉? 小弟我最近想学COM,还请大家给些意见,多谢,多谢! 两台机器同时上宽带网,用程序是如何通讯的?(IP地址都不是固定的) 如何提取没有提供任何资料的DLL的输入输出函数? 简单问题 D5的SP2需要sn,哪位能提供一下,谢谢 如何在执行一段代码时显示模态窗口? 快过年了,没有兴奋只有失落,散分 学校开学了, 给一个开学日期(第一周开始),求本周是第几周的算法
const
MyChars: String = '随机选择一批汉字';procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (Copy(MyChars, Random(Length(MyChars) div 2) * 2 + 1, 2));
end;