2013 年 10月 27 日随笔档案 - GOD攀

2013年10月27日

摘要：要点:1.代码备注的超级详细，如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) lv1: TListView; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; ... 阅读全文

posted @ 2013-10-27 20:36 GOD攀阅读(1678) 评论(0) 推荐(0) 编辑

慢慢来，学无止境

摘要：很想搞网络编程，Indy，Sockets，但是明显感觉到自己功力不够，源码都看不懂，慢慢来。。。不要太着急了。。。。浪费了1天时间。。。hold！！阅读全文

posted @ 2013-10-27 16:23 GOD攀阅读(122) 评论(0) 推荐(0) 编辑

Delphi数组成员丢失

摘要：要点:1.如果数组的范围缩小了，超出部分会被清除掉，非基本类型也不会调用析构函数（内存泄漏）program MyArray; //数组{$APPTYPE CONSOLE}uses SysUtils,Windows;{数组成员丢失}procedure MyFunc3();var arr:array of array of string;begin setlength(arr,2,3); arr[1,2]:='田攀QQ382477247'; Writeln(arr[1,2]); {田攀QQ382477247} setlength(arr,0,0); //缩小数组 setleng.. 阅读全文

posted @ 2013-10-27 01:56 GOD攀阅读(273) 评论(0) 推荐(0) 编辑

Delphi合并2个动态数组

摘要：要点:1.Ptr函数相当于Pointer，强制转换为指针2.CopyMemory是内存复制，把第二个参数，赋值到第一个后面program MyArray; //数组{$APPTYPE CONSOLE}uses SysUtils,Windows;{合并2个动态数组}procedure MyFunc2();var arr1,arr2: TBytes; len,LastAddr: Integer;begin{设置2个数组长度} SetLength(arr1, 3); SetLength(arr2, 3);{给2个数组赋值} arr1[0] := 65; arr1[1] := 66; ar... 阅读全文

posted @ 2013-10-27 01:30 GOD攀阅读(1586) 评论(0) 推荐(0) 编辑

Delphi用指针读取数组某个元素

摘要：要点:1.TBytes和C++里面的数组一样，数组名就是数组的首地址。而array [..] of char 不是指针，需要用取地址符号读地址@2.要获取TBytes某个元素位置的指针, 应该是 @MyTByteArr[x]; 但随着数组的再分配, 这个地址是变化的3.SetLength设置数组长度4.Ord是取字符对应的数字program MyArray; //数组{$APPTYPE CONSOLE}uses SysUtils;{用指针读取数组某个元素}procedure MyFunc1();var i: Integer; p: PByte; MyTByteArr: TBytes;/... 阅读全文

posted @ 2013-10-27 01:13 GOD攀阅读(1501) 评论(0) 推荐(0) 编辑

公告