请问指针怎么赋值?

Question

1.function NoxFind(KeyNumber:PInteger):Integer;   
var
  int:Integer;
begin
 int := 1;
 KeyNumber:=这边要怎么赋值呢?
 
 result:=0;
end; 2.
 str:='b24f6913510004e2';
NoxOpen(PChar(uPin));function NoxOpen(UPin:PChar):Integer;
begin
ShowMessage(UPin);//为什么这边显示是空呢?
 result:=0;
end;  

Answer 1

1.
KeyNumber^:=1;
2.
str:='b24f6913510004e2';
NoxOpen(PChar(str));

Answer 2

1.用KeyNumber^:=1;会提示Eaccess  错误进程中止2.我就是这样写的.上面写错了 还是提示空啊 

Answer 3

买本delphi的书看看吧，我也在学习中

Answer 4

var I : Integer   ::
  I := 15KeyNumber := @I;

Answer 5

楼上方法也可以
1. New(KeyNumber);
KeyNumber^:=20;2.
function NoxOpen(UPin:Phar):Integer;
begin
ShowMessage(UPin);//为什么这边显示是空呢?
 result:=0;
end;str:='b24f6913510004e2';
NoxOpen(str);