如何快速而又安全的把一个字符数组转换?(100分)

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #1

Var
BufByte;
CharBuf:array[1..100] of Char;
i:integer;
begin
Buf:=GetMemory(100);
for i:=1 to 100 do CharBuf:='p';
//请问这个如何把CharBuf快速而又安全的拷贝进Buf?
FreeMemory(Buf);
end;


不要告诉我用
for i:=1 to 100 do
begin
a^:=Byte(b);
inc(a);
end;
极其危险

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #2

另外,BufChar我不想用PCHAR

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #3

Move(CharBuf, Buf^, 100)

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #4

试试编译看看.怎么会这样?
procedure TForm1.Button1Click(Sender: TObject);
var
Bufbyte;
CharBuf,MyChar:array[1..100] of char;
i:integer;
Str:string;
begin
Str:='';
Buf:=GetMemory(100);
for i:=1 to 100 do CharBuf:='M';
Move(Buf^, CharBuf, 100);
Move(MyChar, Buf^, 100);
FreeMemory(Buf);
for i:=1 to 100 do Str:=Str+MyChar;
Showmessage(Str);
end;

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #5

同上。

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #6

接受答案了.