C++到德尔福指针转换

-2

我想将开源C++项目转换为德尔福（柏林10.1）。它使用了一些指针，我找不到将它们转换为Delphi指针的方法。我如何将这段代码从C++转换为Delphi？下面是代码：经过充分的代码添加C++到德尔福指针转换

int SolveAll(int DragFunction, double DragCoefficient, double Vi, 
     double SightHeight, 
     double ShootingAngle, double ZAngle, double WindSpeed, double WindAngle, 
     double** Solution) 
{  
    double* ptr; 

    ptr = (double*)malloc(10*__BCOMP_MAXRANGE__*sizeof(double)+2048); 

    double t=0; 
    double dt=0.5/Vi; 
    double v=0; 
    double vx=0, vx1=0, vy=0, vy1=0; 
    double dv=0, dvx=0, dvy=0; 
    double x=0, y=0; 

    double headwind=HeadWind(WindSpeed, WindAngle); 
    double crosswind=CrossWind(WindSpeed, WindAngle); 

    double Gy=GRAVITY*cos(DegtoRad((ShootingAngle + ZAngle))); 
    double Gx=GRAVITY*sin(DegtoRad((ShootingAngle + ZAngle))); 

    vx=Vi*cos(DegtoRad(ZAngle)); 
    vy=Vi*sin(DegtoRad(ZAngle)); 

    y=-SightHeight/12; 

    int n=0; 
    for (t=0;;t=t+dt){ 

     vx1=vx, vy1=vy; 
     v=pow(pow(vx,2)+pow(vy,2),0.5); 
     dt=0.5/v; 


     dv = retard(DragFunction,DragCoefficient,v+headwind);  
     dvx = -(vx/v)*dv; 
     dvy = -(vy/v)*dv; 


     vx=vx + dt*dvx + dt*Gx; 
     vy=vy + dt*dvy + dt*Gy; 



     if (x/3>=n){ 
      ptr[10*n+0]=x/3;        
      ptr[10*n+1]=y*12;       
      ptr[10*n+2]=-RadtoMOA(atan(y/x));   
      ptr[10*n+3]=t+dt;       
      ptr[10*n+4]=Windage(crosswind,Vi,x,t+dt); 
      ptr[10*n+5]=RadtoMOA(atan(ptr[10*n+4]));  
      ptr[10*n+6]=v;        
      ptr[10*n+7]=vx;       
      ptr[10*n+8]=vy;      
      ptr[10*n+9]=0;        
      n++;  
     } 

     // Compute position based on average velocity. 
     x=x+dt*(vx+vx1)/2; 
     y=y+dt*(vy+vy1)/2; 

     if (fabs(vy)>fabs(3*vx)) break; 
     if (n>=__BCOMP_MAXRANGE__+1) break; 
    } 

    ptr[10*__BCOMP_MAXRANGE__+1]=(double)n; 

    *Solution = ptr; 

    return n; 
}

来源

2016-11-13 khafan

有可能是不涉及指针挂羊头卖狗肉的解决方案。我们需要看到呼叫站点，并知道您可以更改关于界面的内容。 –

我没有阅读所有的函数体，但我想你最好使用一个Delphi动态数组（'TDoubleArray = Double数组;'无边界）。如果'n'是数组的最后一个长度，你甚至可以返回数组。如果不将该数组作为'var'传递。 –

type 
    TDoubleArray = array[Word] of Double; 
    PDoubleArray = ^TDoubleArray; 


ptr: PDoubleArray; 

GetMem(ptr, 10*sizeof(double)+324); 


ptr[10*n+1] := y*12; 

ptr[1] := n;

编辑：

argument definition: 
    ... var Solution: PDoubleArray) 
in this case usage: 
    Solution := ptr;

来源

2016-11-13 12:13:16 MBo

最后一部分是错误的。这实际上只是一个'double *'类型的var参数。静态数组在这里有些蹩脚。 POINTERMATH ON将工作做得更好。我个人对勺子喂食有一点耐心。为什么我们不能站在我们的立场上并要求适当的问题？所以我们可以帮助提问者学习。 –

“双**解决方案”应该像2 * 2阵列，据我所知？ – khafan

编号'double **'是指向线性数组的指针，在这种情况下。因为你只显示很少的代码，没有上下文，所以我不得不猜测，但是我认为从我们的代码中可以清楚地看到它。 –

type 
DoubleArray = Array[Word] of Double; 
PDoubleArray = ^DoubleArray; 

const 
__BCOMP_MAXRANGE__ = 5; // for Example 

var 
Ptr : ^DoubleArray; 
Solution : ^PDoubleArray; 
Y : Double; 
N : Integer; 
begin 
Ptr := AllocMem(10*SizeOf(Double)+324); // Initialize with Zero 
// OR 
GetMem(Ptr, 10*SizeOf(Double)+324); // Without Initializing 
... 
Ptr^[10*N+1] := Y*12; 
... 
Ptr^[10*__BCOMP_MAXRANGE__ + 1] := N; 
... 
Solution := @Ptr; 

ShowMessage(FloatToStr(Solution^^[1])); // Example for using 'Solution' 
... 

// Free Memory using FreeMem(Ptr) at the End 
end;

来源

2016-11-13 22:30:05

C++到德尔福指针转换

回答

相关问题