delphi中的函数指针如何定义和使用 急

var
p:Pointer;
begin
p:=@函数名称
end;

调用时
p(参数表);

就行了

type
Puser=~user
user = record
id:integer;
name:string[10];
end;
然后用puser
data:pusr;
new(data);
data.id:=0001;
data.name:='张三';