摘要: //如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着.procedure TForm1.Button1Click(Sender: TObject);vari: Integer;beginfor i :=0to MaxIntdo begin Text := IntToStr(i); end;end;//即使这样也无济于事, 因为在循环期间你执行不了Button2Clickvarb: Boolean;procedure TForm1.Button1Click(Sender: TObject);var i: Integer;beginb := True;for i :=0to MaxI 阅读全文
posted @ 2011-11-30 15:56 jsrgren 阅读(251) 评论(0) 推荐(0) 编辑
摘要: Pascal 中的过程类型与C语言中的函数指针相似,为了统一说法,以下称函数指针。函数指针的声明只需要参数列表;如果是函数,再加个返回值。下面讲解指向非对象(一般的)函数/过程的函数指针。例如声明一个过程类型,该类型带一个通过引用传递的整型参数: type IntProc = procedure (var Num: Integer); //IntProc是指向过程的函数指针这个过程类型与任何参数完全相同的例程兼容,即用它声明的变量,可以指向任何此类函数,并通过其进行函数的调用。下面是一个兼容例程:procedure DoubleTheValue (var Value: Integer);be. 阅读全文
posted @ 2011-11-29 14:20 jsrgren 阅读(2571) 评论(0) 推荐(0) 编辑
摘要: 声明:1. type Name = Existing type; 2. type Name = type Existing type; 3. type Name = (EnumValue1 [=value], EnumValue2 [=value] ...); 4. type Name = Expression1..Expression2; 5. type Name = ^Existing type; 6. type Name = array[...] of Existing type; 7. type Name = class ... end; 8. type N... 阅读全文
posted @ 2011-11-24 21:18 jsrgren 阅读(1689) 评论(0) 推荐(0) 编辑
摘要: Delphi中ExtractFilePath()及其相近函数用法 ExtractFilePath() 功能:返回完整文件名中的路径 函数原型如下: AnsiString __fastcall ExtractFilePath; ExtractFilePath和相近函数: ExtractFileDrive :返回完整文件名中的驱动器,如"C:" ExtractFilePath:返回完整文件名中的路径,最后带“\”,如"C:\zhu\" ExtractFileDir:返回完整文件名中的路径,最后不带“\” ,如"C:\zhu" Extrac 阅读全文
posted @ 2011-11-23 09:59 jsrgren 阅读(761) 评论(0) 推荐(0) 编辑
摘要: 中华人民共和国机械工业部部标准 QC/T 568—1999 汽车机械式变速器 台架试验方法 代替JB 3987—85 本标准适用于载货汽车(不包括微型载货汽车),越野车,客车所使用的机械式齿轮变速器。对于采用八档以上带付变速器的多档变速器只适用于主变速器。1 总则1.1 试验项目 本标准包括如下试验项目: a.变速器传动效率试验; b.变速器噪声测量; c.变速器动态刚性试验; d.变速器静扭强度试验, e.变速器疲劳寿命试验; f.换档齿轮齿端冲击磨损试验; g.变速器同步器性能和寿命试验。1.2 试验项目... 阅读全文
posted @ 2011-11-18 16:29 jsrgren 阅读(1812) 评论(0) 推荐(0) 编辑
摘要: Delphi中有关TStrings 管理对象的用法心得sl:= TStringsList.Create;1. 增加对象:AddObject 增加一个对象的引用到TStringList中,同时在堆中增加一个对象,TStringList中的引用指向堆中的对象, 对象的引用存在Object[i]中,对象名存在sl[i]中。2. 释放对象:先用Object[i].Free释放堆中的对象,再将TStringList中的引用变量置空(Object[i] := nil)。3. delete方法删除的是对象引用和对象名,并非删除对象。4. clear属性可清除所有的对象名和对象引用。5. size属性用于描述 阅读全文
posted @ 2011-11-02 16:12 jsrgren 阅读(541) 评论(0) 推荐(1) 编辑
摘要: 所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在很多控件的使用中, 读取主要用 LoadFromStream; 写入主要用 SaveToStream.TMemoryStream(内存流) 入门举个例子: (建立新工程, 添加两个 Memo、两个 Button) unit Unit1;interfaceuses Windows, Messages, SysU 阅读全文
posted @ 2011-11-01 09:37 jsrgren 阅读(531) 评论(0) 推荐(0) 编辑
摘要: TMemoryStream对象TMemoryStream对象是一个管理动态内存中的数据的Stream对象,它是从TCustomMemoryStream中继承下来的,除了从TCustomMemoryStream中继承的属性和方法外,它还增加和覆盖了一些用于从磁盘文件和其它注台读数据的方法。它还提供了写入、消除内存内容的动态内存管理方法。下面介绍它的这些属性和方法。TMemoryStream的属性和方法1.Capacity属性声明:propertyCopacity:Longint; Capacity属性决定了分配给内存流的内存池的大小。这与Size属性有些不同。Size属性是描述流中数据的大小。在 阅读全文
posted @ 2011-11-01 09:08 jsrgren 阅读(4985) 评论(0) 推荐(0) 编辑
摘要: procedure New(var P: Pointer);{为一个指针变量分配内存,会自动计算指针所指数据结构需要空的空间大小}procedure GetMem(var P: Pointer; Size: Integer); {分配一个指定大小的内存块(连续),并用P指向它}procedure ReallocMem(var P: Pointer; Size: Integer);{重新分配指定大小内存块,参数P必须是nil或者指向一个由GetMem, AllocMem, 或 ReallocMem分配的内存变量,其分配的内存是连续的,会把前面已有的数据移到新分配的内存中去}通常采用New分配内存 阅读全文
posted @ 2011-10-31 16:49 jsrgren 阅读(3175) 评论(0) 推荐(0) 编辑
摘要: 我今天碰到QQ能通过GPRS登录但不能通过WIFI登录,能正常上网问题。解决的方法:重启手机就可以了。 阅读全文
posted @ 2011-10-27 19:21 jsrgren 阅读(237) 评论(0) 推荐(0) 编辑