摘要：
//数组类型{ 数组类型定义了一组指定类型的元素序列，在方括号中填入下标值就可访问数组中的元素。定义数组时，方括号也用来指定可能的下标值。例如，下面的代码中定义了一个有24个整数的数组：}typeDayTemperatures = array [1..24] of Integer;{在数组定义时，你需要在方括号中填入一个子界类型的值，或者用两个有序类型的常量定义一个新的子界类型，子界类型指定了数组... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(226)
评论(0)
推荐(0)
摘要：
//设置窗体在屏幕中的位置procedure TForm1.SpeedButton1Click(Sender: TObject);begintryif (Edit1.Text<>'') and (Edit2.Text<>'') thenif (StrtoInt(Edit1.Text)<800) and (StrtoInt(Edit2.Text)<600) thenbeginForm1.Left :... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(159)
评论(0)
推荐(0)
摘要：
功能说明：随时响应用户输入procedureTForm1.FormKeyPress(Sender: TObject;varKey: Char);beginif ActiveControl <> Memo1 thenwith Memo1.Lines dobeginText:=Text+Key;//取得用户得按键end;end;通过 Wiz 发布 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(116)
评论(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)
浙公网安备 33010602011771号