陈宇的博客

******************************** 编 译 错 误 信 息 ********************************';' not allowed before 'ELSE' ElSE前不允许有“;”'' clause not allowed in OLE automation section 在OLE自动区段不允许“”子句'' is not a t

【函数名】 GetTickCount【库名】 kernel32【说明】 用于获取自windows启动以来经历的时间长度（毫秒）【返回值】 Long，以毫秒为单位的windows运行时间通常用来计算某个操作所使用的时间： Start:=GetTickCount; ...//执行耗时的操作Stop:=GetTickCount; TimeUsed:=(

var s:string; pc:pchar; pb:pbyte; ac:array[1..100] of char; ab:array[1..100] of byte; i:integer; begin s:='this is a test';

Delphi,网络通信，TserverSocket，TclientSocket现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监

这几个函数都包含在StrUtils中，所以需要uses StrUtils;举例：假设字符串是 Dstr := 'Delphi is the BEST'， 那么LeftStr(Dstr, 5) := 'Delph'MidStr(Dstr, 6, 7) := 'i is th'RightStr(Dstr, 6) := 'e BEST' 但我并不建议在Uses中引入StrUt

工程选项是另一个容易忽视的特性。因为对于初学者，缺省设置就足够用了。毕竟，当一个人忙于学习一个新编程环境时，哪有时间去关心那些编译器/链接器选项呢？但是，到一定时候，就会开始对这些选项感兴趣，并想知道它们是作什么用的。下面将讲述工程选项对话框。可从主菜单选择【Project | Options】来调用该对话框。工程选项对话框是一个多页面对话框，它有如下页面： Forms

分类快捷键解释备注组件设计类Escape选择当前组件容器 Shift + Click选择多个组件；选择窗体 Tab选择下一个组件 Shift + Tab选择上一个组件 方向键选择此方向的下一个组件

1、单向链接单向链表适用于只从一端单向访问的场合，这种场合一般来说：（1）、删除时，只适合删除第一个元素；（2）、添加时，只直接添加到最后一个元素的后面或者添加到第一个元素的前面；（3）、属于单向迭代器，只能从一个方向走到头（只支持前进或后退，取决于实现），查找效率极差。不适合大量查询的场合。这种典型的应用场合是各类缓冲池和栈的实现。2、双向链表

一、Server端   使用的indy控件：idtcpsrvr1: TIdTCPServer; a）设置默认端口begin Self.btn1.Enabled:=False; idtcpsrvr1.DefaultPort:=2001; idtcpsrvr1.Active:=True;end; b）对客户端连接事件响应procedure

absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var  Str: string[32];  StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin  Str := 'abc';  Edit1

测试同事帮反映了我们程序在处理委托时的一个问题：对于港股的委托，我们对它的成交回报中股票代码是空的。加日志找到原因在这里，港股的委托其股票代码是5位，会左补一个空格，而在delphi中，对于TStringList 进行类似哈希表操作时，DelimitedText会自动判断空格并跳过。导致reqtext.securityid一直为空，在后续的处理中出错。function Make