![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
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 · 3166 阅读 · 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 · 419 阅读 · 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 · 1121 阅读 · 0 评论