C++ to Delphi pointer conversion -

-

i trying convert open source c++ project delphi(berlin 10.1). uses pointers can not find way convert them delphi pointers. how can translate piece code c++ delphi? here code:

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;     (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; } 

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;

edit after full code adding:

argument definition:       ... var solution: pdoublearray) in case usage:        solution := ptr;

Comments

Post a Comment

Popular posts from this blog

php - How to display all orders for a single product showing the most recent first? Woocommerce -

-
i have password protected page on frontend. on page, want display full list of purchases associated single woocommerce product id. option 1: i've looked through woocommerce docs , , found: wc_cli_order , list_( $args, $assoc_args ) function lists orders. presumably, orders can filtered product id [--=] filter orders based on order property. line item fields (numeric array, started index zero): line_items.0.product_id option 2: i found article , based on customer id. i've modified code based on guesses meta_key , meta_value. $customer_orders = get_posts( array( 'numberposts' => -1, 'meta_key' => '_product', 'meta_value' => get_product_id(), 'post_type' => wc_get_order_types(), 'post_status' => array_keys( wc_get_order_statuses() ), ) ); how display orders single product showing recent order first? here solution put based on these articles: http://www.w...
Read more

asp.net - How to correctly use QUERY_STRING in ISAPI rewrite? -

-
i'm having difficult time , hope guys can help. using helicon isapi rewrite version 3.1.0.104 on our iis server. edit http.conf file , have tried , still fail. this trying do: redirect url: https://www.domain.com/switch-by-version?version=2.8.5.2594 to: https://test.domain.com/load/load.aspx?tver=2.8.5.2594 the version number @ end source url change, , need target url have same version number @ end of url example above shows. i tried following not work: rewritecond %{query_string} ^version=(\d\d?)\.(\d\d?)\.(\d\d?)\.(.*)$ [nc] rewriterule ^/switch-by-version(.*)$ https://test.domain.com/load/load.aspx?tver=%1 [r=307,nc,l] any appreciated! thanks. if it's running in equivalent context of .htaccess , rule shouldn't start / . here's simpler version: rewritecond %{query_string} ^version=(\d+\.\d+\.\d+(?:\..+)?)$ [nc] rewriterule ^switch-by-version/?$ https://test.domain.com/load/load.aspx?tver=%1 [r=307,nc,l]
Read more

angularjs - How restrict admin panel using in backend laravel and admin panel on angular? -

-
https://scotch.io/tutorials/token-based-authentication-for-angularjs-and-laravel-apps following tutorials, try write authentication restrict admin panel, didn't understood how can that. this admin panel, admin panel don't want show , request database unauthenticated users. my laravel-routes route::get('/admin',function(){ return view('index'); }); route::get('/api/v1/employees/{id?}', 'employees@index'); route::get('/api/v1/users/{id?}', 'employees@users'); route::post('/api/v1/employees', 'employees@store'); route::post('/api/v1/employees/{id}', 'employees@update'); route::delete('/api/v1/employees/{id}', 'employees@destroy'); route::group(['prefix' => 'api'], function() { route::resource('authenticate', 'authenticatecontroller', ['only' => ['index']]); route::post('authenticate', 'authentic...
Read more