头痛的指针请教 ( 积分: 50 )

W

wyb0026

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #1

var
Buffer: Pointer
PWideCahr ;
BEGIN
P='123456';
Buffer:=GetPoint....... //这是我得到一个指针，当然这个地址是固定的不能改变
1 我想先读出来 Buffer内容，现在已经知道是WideCahr
1 我想把P的值赋给Buffer
end;
这段代码怎么写？

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #2

var
Buffer: Pointer;
P: PString;
BEGIN
New(P);
P^ := '12345688-89-';
Buffer := P
//这是我得到一个指针，当然这个地址是固定的不能改变
//1 我想先读出来 Buffer内容，现在已经知道是WideCahr
//1 我想把P的值赋给Buffer
Application.MessageBox(Pchar(Buffer^), '提示', 64);

 

W

wyb0026

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #3

谢谢回复不过Buffer只读不可以赋值 Buffer := P;不行 ，有没有拷贝之类的命令？

 

J

JohnYale

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #4

用move()试试看

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-17

• #5

既然制度,那么Buffer的地址也是制度的就不行!
若Buffer的地址可写那么分配可能出现反问虚拟地址!

 

X

xingkong97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-17

• #6

var
Buffer: Pointer;
PwideChar
//
begin
GetMem(P,20);//分配10K字节
GetMem(Buffer,20);
ZeroMemory(p,20);
//对p赋值
CopyMemory(Buffer,p,20);
FreeMem(p,20);
FreeMem(Buffer,20);