指针间赋值的问题

[gw_sh]

比如C中可有如下代码，但如何在delphi下实现：
....
int *p, *pp;
....
p=malloc(...);
pp=p+1;
....
pp[-1]=...;

[gw_sh]

up

[konhon]

var
p,pp:^integer;
i:integer;

new(p);
new(pp);//自动
p:=&i;//I的地址

dispose(p);
dispose(pp);

[gw_sh]

拜托请先看清楚问题。pp=p+1，在delphi中好像不能进行这样的操作

[hiflower]

方法1：
var
p,pp:PInteger;
begin
GetMem(p,n);
pp:=PInteger(Integer(p)+SizeOf(Integer));
end;
方法2：
var
p,pp:^Integer;
begin
GetMem(p,n);
pp:=p;
Inc(pp);
end;

[zhaojinghui]

var
p,pp : ^Integer;
begin
New(p);
new(pp);
p^ := 1;
pp := p;
ShowMessage(IntToStr(p^));
ShowMessage(IntToStr(pp^));

[zhaojinghui]

var
p,pp : ^Integer;
begin
New(p);
new(pp);
p^ := 1;
pp := p;
ShowMessage(IntToStr(p^));
ShowMessage(IntToStr(pp^));
Dispose(p);
Dispose(pp);

[zhaojinghui]

var
p,pp : ^Integer;
begin
try
New(p);
new(pp);
p^ := 1;
pp := p;
ShowMessage(IntToStr(p^));
ShowMessage(IntToStr(pp^));
finally
Dispose(p);
Dispose(pp);
end;

[gw_sh]

不知在分配内存后，p可不可以这样存取:p[x]:=..，好像delphi中不行

[SGP]

inc(p) = c中的 p++
dec(p) = c中的 p--

[gw_sh]

关键是我想在分配指针后用数组的方式存取，比如：
//c version
....
int *p, *pp;
....
p=malloc(...);
pp=p+1;
....
pp[-1]=...;//**like this**
//////////////
在delphi中这样的操作好像不允许，不只如何解决

[hiflower]

pp:=PInteger(Integer(p)+SizeOf(Integer));
PInteger(Integer(pp)+SizeOf(Integer)*(-1))^:=.....

[jacky_shen]

procedure TForm1.Button1Click(Sender: TObject);
var
I, II: PInteger;
begin
GetMem(I, Sizeof(Integer) * 10); // p=malloc(...);
II := SysReallocMem(I, Sizeof(Integer) * 1); // pp=p+1;
FreeMem(I);
end;

[gw_sh]

这样的操作好像麻烦了点，不过还是谢谢花了。

[hiflower]

只有 PChar 类型才能象数组一样操作

[gw_sh]

还是不甘心，换一种问法：delphi是否允许把一个数组的地址副给另一个数组，然后再这样存取：
pp=p+1;
pp[-1]=...;

[hiflower]

procedure TForm1.Button1Click(Sender: TObject);
type
TArray=array of Integer;
var
p:PInteger;
a:TArray;
i:Integer;
begin
GetMem(p,10*SizeOf(Integer));
a:=TArray(p);
for i:=1 to 10 do
begin
p^:=i;
Inc(p);
end;

for i:=1 to 10 do
begin
ShowMessage(Inttostr(a[i-1]));
end;
a:=nil;
//FreeMem(p);
end;

不能确定是否有内存泄漏:)

[gw_sh]

晚些时候我会结帖的，虽然有点遗憾，delphi的指针要是能像c中那样可以以数组方式存取就方便了。