haiou327’blog

<br />delphi指针简单入门:   <br />    <br />  看一个指针用法的例子：   <br />  1         var   <br />  2             X,   Y:   Integer;       //   X   and

procedure TForm1.btn1Click(Sender: TObject); var iInstanceSize: Integer; s: string; aP: Pointer; tmp: Pointer; tmp2: Pointer; begin //获取对象指针 ap := Self; //ap^代表取出ap中存储地址处的内容，此处仍然是一个指针，

// var a1,a2:array[0..5]of integer; i:integer; begin for i:=Low(a1) to High(a1) do a1[i]:=i; Move(a1,a2,SizeOf(a1)); a1[3]:=255; //CopyMemory(@a2[0], @a1[0], Length(a1));

type Tarr = array of Integer; Parr = ^Tarr; var i: integer; Arr: Parr; procedure TForm1.btn1Click(Sender: TObject); begin

type PmyList = ^RmyList; RmyList = record name: string; Age: integer; end; var AList: TList; PaList: PmyList; I

type TSmt = record SName: string[16]; Feeder: Integer; Dushu: Real; end; Psmt = ^TSmt; var List: TList; procedure TForm2.Button1Click(Sender: TObject); var buf: Psmt; i: I

Const arr1: array [0 .. 1, 0 .. 1] of string = (('A0B0', 'A1B0'), ('A0B1', 'A1B1')); arr2: array [0 .. 2, 0 .. 1] of string = (('X0Y0', 'X1Y0'), ('X2Y0', 'X0Y1'), ('A0', 'B0')); type TC

TMyRec = record sName: string[15]; Sex: integer; end; pMyRec = ^TMyRec; arr1 = array of pMyRec; var a1: arr1; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin

Type TMyArr = array of array of array of Integer; Pint = ^TMyArr; var PArr: Pint; i, j, k, ic, jc, kc: Integer; begin ic := 2; jc := 3; kc := 4; New(PArr); SetLength(PArr^, ic, jc, k

type TObj = class private FNumber: Integer; public property Number: Integer read FNumber;//只读属性，不可写 end; procedure TForm1.FormCreate(Sender: TObject); var O: TObj; begin O := TOb

在事件处理程序参数表中，至少含有一个参数Sender,它代表触发事件处理程序的构件，如在上例中，Sender就指Button2，有了Sender参数，可以使多个构件共用相同的事件处理程序，如下例：  　　Procedure Tform1.Buttonclick(Sender:Tobject);  　　Begin  　　If sender=button1 then  　　Label

delphi 指针 入门 指针，是一个无符号整数（unsigned int），它是一个以当前系统寻址范围为取值范围的整数。指针对应着一个数据在内存中的地址，得到了指针就可以自由地修改该数据。指针的指针就是用来存放指针所在的内存地址的。 @:取址运算符;  ^:指针的引用解析操作符; ////////////////// 1，类型指针的定义。对于指向特定类型的指针 v

Object Pascal的指针      以下内容分为八个部分，分别是      一、类型指针的定义      二、无类型指针的定义      三、指针的解除引用      四、取地址（指针赋值）      五、指针运算      六、动态内存分配      七、字符数组的运算      八、函数指针      一、类型指针的定义。对于指向特定类型的指针，在C中是这样定义的：

1. var a:^integer; {在栈内分配内存，指针型a所占的内存大小为4} begin new(a); {在堆内分配出一大小为sizeof(integer)其地址赋予a}

地址和指针 在学习Delphi程序设计时，地址的概念非常重要，它是理解指针变量的基础。所谓地址就是内存某个存储单元在内存中的位置，而这个位置是相对于内存中第一个存储单元而言的。如果将内存中第一个单元的地址记为0，第二个单元的地址记为1，则第1000个单元的地址就可以记为999。

delphi一些不是很重要的技巧 1.把整型指针转换字符指针 var a:^integer; 是宣告一個integer的指標 而不是一個integer 差別在var b: integer ;  delphi會幫你準備一個位置來存這個數字,並且有一個指標來指到這個數字

Delphi 函数指针 过程/函数类型   Pascal 中的过程类型与C语言中的函数指针相似,为了统一说法,以下称函数指针。函数指针的声明只需要参数列表；如果是函数，再加个返回值。下面讲解指向非对象（一般的）函数/过程的函数指针。 例如声明一个过程类型，该类型带一个

delphi中nil的用法 和C++中的NULL一样的意思，指空值，它和0值不一样～～   nil就是空指针～～     指针表示的就是内存的一个地址～～（数据存放位置）～～     nil就表示空地址～～      例如:   说对一个TImage中的图片进行清空：

var p: ^Integer; procedure TForm1.btn1Click(Sender: TObject); begin if not assigned(p) then begin New(P); btn1.Caption

addr函数指针的用法 procedure TForm1.btn1Click(Sender: TObject); var   i:Integer;   o:^Integer; begin  i:=4;  o:=addr(i);  //该地址函数返回指定对象的地

将上例数组改成用指针存放模块信息演示 uses TlHelp32; var PidL: TStringList; //存放PID列表 [全局] EntryL: Tlist;

var t,i:Integer; P: Pointer; begin i := 100; T := Cardinal(@i); P := Pointer(T); ShowMessage(IntToStr(Pinteger(P)^)); //转为整型指针再还原 end;

{$APPTYPE CONSOLE} uses SysUtils, ActiveX, ComObj, Variants; function ListDrives : string; var FSWbemLocator : OLEVariant; objWMIService : OLEVariant; colDiskDrives : OLEVariant;