把C++代碼转为delphi(50分)

R

rong007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-30

• #1

void setmemch(char* ptrs,int iLen,char c)
{
for(int i=0;i<iLen;i++)
{
if( *(ptrs+i)==0 ) *(ptrs+i)=c;
}
}

请问以上转为delphi是怎么样转的呀?

 

H

huasoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-31

• #2

procedure setmemch(ptrs: PChar;iLen:Integer;c:char)
var
i:Integer;
begin
for i := 1 to iLen-1 do
begin
if( (ptrs+i)^=0 ) then (ptrs+i)^:=c;
end;
end

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-31

• #3

procedure setmemch(ptrs : PAnsiChar; iLen : Integer; c : AnsiChar);
var
I : Integer;
begin
for I := 0 to iLen - 1 do
if (ptrs + I)^ = #0 then
(ptrs + I)^ := c;
end;

 

M

madic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-31

• #4

这分好赚，可被wr960204你拿了...
楼主快结贴..正解是wr960204
顺便说一下...他的写法也可以兼顾以后的delphi

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-31

• #5

LZ主要是没搞清楚指针是怎么回事。。。。。。。。。

 

R

rong007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-31

• #6

謝謝各位

 

R

rong007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-31

• #7

多人接受答案了。