delphi
参观西湖
这个作者很懒,什么都没留下…
展开
-
delphixe2 SIZE_T=NativeUInt类型
类型实在是多啊,遇到一个看一个吧。 NativeInt和NativeUInt。以往没注意,记得只有 int8 int16 int32 uint8 uint16 uint32,没有这两个。这是定义在system里的。 在winapi.windows里面定义, INT_PTR LONG_PTR SSIZE_T都是 NativeInt UINT_PTR U原创 2015-04-18 13:20:08 · 3172 阅读 · 0 评论 -
单链表反转
type PNode=^TNode; TNode=record name:integer; next:PNode; end; function ListReverse(head:PNode):PNode; var p,pPre,pcopyNex:PNode; begin p:=head; pPre:=nil;原创 2015-04-18 13:21:33 · 430 阅读 · 0 评论 -
枚举类型的访问
procedure TForm1.test; type xx=(a=4,b,c,d,e,f,g); var i:xx; begin for i := low(xx) to high(xx) do showmessage(inttostr(ord(i))); end;原创 2015-04-18 13:24:36 · 1129 阅读 · 0 评论