getmem问题（简单，我却不会！！！）(100分)

L

lfq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-15

• #1

我需要这样一个函数：
function myfunction(bufferointer,len:integer);
其中buffer是用getmem(buffer,len)函数分配的，参数len不确定，buffer中存放着整数
数据，我需要在此函数中把buffer最为一个字节数组或word数组来存取，如何实现？
不要告诉我使用pchar!!!

 

S

sxbrf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-15

• #2

什么叫把buffer最为一个字节数组或word数组来存取？

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-15

• #3

不知道这样符不符合你的要求，word一样处理

function myfunction(buffer: pointer
len: integer): integer;
var
b: Byte;
i, j: integer;
begin
j := 0;
for i := 0 to len - 1 do
begin
b := Byte(integer(@buffer) + i);
j := j + b;
end;
result := j;
end;

 

L

lfq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #4

to cqbaobao:
谢谢！！
尽管你给出的答案有一点错误，但受你的启发，我解决了问题！！！！

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-06

• #5

谢谢
还请指教：）