Question

C++代码改成delphi

像这种我把s：Pdoublearray;
type
Tdoublearray = array of double;
pdoublearray = ^Tdoublearray;

Answer 1

procedure copy_array(var first: ^double;var second:^double;var l:integer);
var
i: integer;
begin
for i:=0 to l-1 do
(f+i)^:= (second+i)^;
end;