PInteger = ^Integer，在整个过程里均没有被使用，请问PInteger起什么作用？

[kmfangxun]

//下面的PInteger在整个过程里均没有被使用，请问PInteger起什么作用？

procedure ReadStream(Input, Output: TStream);
type
PInteger = ^Integer;
var
InBuf: array[0..509] of Byte;
OutBuf: array[0..1023] of Char;
BufPtr: PChar;
I, J, K, BytesRead: Integer;
Packet: TPacket;
begin
..............................
..............................
.............................
end;

[CACACACACA]

I, J, K, BytesRead: Integer;
有整型的变量.
type
PInteger = ^Integer;
PInteger就是整型指针.

肯定是指向某个整型变量用了.

[lihuasoft]

type PInteger = ^Integer; // PInteger被定义为一个整型指针类型。

后面会有类似的语句：
var
P1 : PInteger; //相当于var P1 : ^integer; 定义整型指针变量

[lihuasoft]

注意我说的PInteger是“整型指针类型”，而非“整型指针变量”或“整型指针”
~~~~~~

[kmfangxun]

那就是说在这个过程里如果没用，其实可以不要这句的，是吗？

另外，PInteger是全局有效吗？


谢谢！

[lihuasoft]

可以把它注释掉试一下。

[CACACACACA]

可以去掉.

不是全局的.只在这个方法中有效.

[kmfangxun]

好的，谢谢！ 我的Delph好菜啊！^_^ 结帖了，只有100分，请多包涵。