关于内存读写的问题。(20分)

F

fagehaoku

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #1

[]
var
buffer:^DWORD;data:Array[0..512] of string;
....
AllocMem(buffer,buffersize);
请问如何将data数据送入buffer中?

 

F

fagehaoku

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #2

reflesh

 

F

fagehaoku

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #3

update

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #4

没有直接的办法，用循环：

var
p: PByte;
i: Integer;
begin
p := buffer;
for i := Low(data) to High(data) do
begin
Move(data^, p^, Length(data));
Inc(p, Length(data));
end;
end;

 

F

fagehaoku

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #5

好象也只能如此。