杭州交通信息网定制理财产品:关于在delphi中动态数组之间的复制？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 02:41:17
目的：替代 原自VC++：memcopy
我现在用move,我是这样写的：
procedure TForm1.fft(var td1:array of COMPLEX;var fd1:array of COMPLEX;power:integer);
var
W,X1,X2,x:array of COMPLEX;
begin
//其它语句略
move(TD1,X1,sizeof(complex)*count);
//略
end;
执行move后出错？？为什么？
备COMPLEX为自定义类(.re;.im);
回答后有加分~
to:zuizhu: 我目前也是这么做的？
我现在用move,我是这样写的：
procedure TForm1.fft(var td1:array of COMPLEX;var fd1:array of COMPLEX;power:integer);
var
W,X1,X2,x:array of COMPLEX;
begin
//其它语句略
move(TD1,X1,sizeof(complex)*count);
//略
end;
执行move后出错？？为什么？
备COMPLEX为自定义类(.re;.im);
回答后有加分~
to:zuizhu: 我目前也是这么做的？
System.pas里面的Move函数是针对字串操作的函数,复杂的结构体似乎不可能使用这个函数赋值,是不是可以写成这样?
var
I: Integer;
begin
SetLength(X1,Count);
for I := 0 to Count - 1 do
X1[I] := Td1[I];