上一页 1 ··· 45 46 47 48 49
摘要: procedureTForm1.Button1Click(Sender:TObject); var result:Integer; i:Integer; begin Memo1.Clear; fori:=0to10do begin Randomize; Result:=Random(1000)+1; Memo1.Li... 阅读全文
posted @ 2012-05-26 08:14 XE2011 阅读(152) 评论(0) 推荐(0)
摘要: //建立1个ConsoleApplication 把代码往里面粘贴/////////////////////////////////////////////////////{break}programProject1; {$APPTYPECONSOLE} uses SysUtils; vari:Integer; begin {break在各循环中调用Break,可以使得程序的执行流程立即跳到循环的... 阅读全文
posted @ 2012-05-26 08:14 XE2011 阅读(151) 评论(0) 推荐(0)
摘要: //dll 文件libraryplaySound; uses SysUtils, Classes; {$R*.res} //{$R'XXX.RES''XXX.RC'}自动编辑 {$R'WavRes.RES''WavRes.rc'} begin end. //调用dll中的WAV资源 usesMMSystem;{MMSystem} procedureTFo... 阅读全文
posted @ 2012-05-26 08:14 XE2011 阅读(239) 评论(0) 推荐(0)
摘要: 首页 关于 友情链接 IT元素Hector的编程笔记夹,如果喜欢,收藏一个« 解决Microsoft Expression Blend 4安装后没有WP7模版事务的脏读,不可重复读,虚读 »Delphi中资源文件使用小结4 九月 2011 - by Hector一.编写 RC 脚本文本用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下: AVI 无... 阅读全文
posted @ 2012-05-26 08:13 XE2011 阅读(301) 评论(0) 推荐(0)
摘要: procedure TForm1.Timer1Timer(Sender: TObject); {$j+} //全局变量 const i:integer=0; //定义常量 i {$j-} begin ListBox1.Items.Add(memo1.lines.strings[i]); if i >= memo1.lines.count - 1 then i := 0 else... 阅读全文
posted @ 2012-05-26 08:13 XE2011 阅读(111) 评论(0) 推荐(0)
摘要: { 这段代码存在的目的不是在研究这3个排序的算法, 这段代码存在的目的是如何用这3个排序函数,并且选出一个排序速度最快的函数 面对实际应用 } unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrl... 阅读全文
posted @ 2012-05-26 08:13 XE2011 阅读(894) 评论(0) 推荐(0)
摘要: procedureswap(x,y:string); var temp:string; begin temp:=x; x:=y; y:=temp; end; procedureTForm1.Button3Click(Sender:TObject); vara,b:string; begin a:=Edit1.Text; b:=Edit2.Tex... 阅读全文
posted @ 2012-05-26 08:13 XE2011 阅读(136) 评论(0) 推荐(0)
上一页 1 ··· 45 46 47 48 49