如何合并两个动态数组 ( 积分: 50 )

C

catcatdogdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-01

• #1

除了用循环一个元素一个元素赋值的方法外，有没有更快的方法？
类似于String中的Concat

 

C

catcatdogdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-01

• #2

除了用循环一个元素一个元素赋值的方法外，有没有更快的方法？
类似于String中的Concat

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-01

• #3

可以用CopyMemory,把一个数组拷贝到另一个数组的增加部分.

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-01

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
buf:array of char;
buf2:array of char;
i,len:Integer;
begin
len:=10;
setlength(buf,len);
setlength(buf2,len);
for i:=low(buf) to high(buf) do
buf:='A';
for i:=low(buf2) to high(buf2) do
buf2:='B';

setlength(buf,len*2);
copymemory(@buf[len],@buf2[0],len*2);
showmessage(buf[21]);
end;

 

C

catcatdogdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-01

• #5

to Avalon:
为什么我复制以后目标数组会少了一个元素呢。缺了最后一个。

procedure TForm1.Button1Click(Sender: TObject);
var
A, B: Array of String;
i: Integer;
begin
SetLength(A, 10);
SetLength(B, 5);

for i := Low(A) to High(A) do
A := 'A' + IntToStr(i);

for i := Low(B) to High(B) do
B := 'B' + IntToStr(i);

SetLength(A, 15);
CopyMemory(@A[10], @B[0], 15);

ShowMessage(IntToStr(Length(A)))
//此处显示长度为15

for i := Low(A) to High(A) do
Memo1.Lines.Add(A)
//最后Memo1中少了一个'B4'，但多了一行空格。B[4]变成空格了？
end;

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-01

• #6

CopyMemory(@A[10], @B[0], High(B)*4);

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-01

• #7

CopyMemory最后的参数我一开始搞错了
不是个数 是Specifies the size, in bytes, of the block of memory to copy

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-01

• #8

CopyMemory(@A[10], @B[0], (High(B)+1)*4);

 

C

catcatdogdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-04

• #9

多人接受答案了。