Перевод С в Pascal
От: Аноним  
Дата: 06.01.08 17:46
Оценка:
Всем привет!
Народ, помогите, плз: есть DLL на С, пробую перевести её в Delphi,компилится без ошибок, но не работает. Может, кто поможет перевести или скажет, в чем засада?
Текст С:

_declspec(dllexport) void Highdays (double *series, double *days, long int window, long int size)

{ double *in, *out;
long int i,j;
long int highest;

in=series;
out= days;

for (i=0; i<size; i++)
{if (i < window-1)
*out=3.4e38;
else
{ highest= 0;
for (j=1; j< window; j++)
{ if (*(in-j) > *(in-highest)) highest=j; }
*out=highest;
}
in++; out++;
}

}

Текст Pascal:

library Indicator_P;
uses
SysUtils,
Classes;

{$R *.res}
type
TSeries= array of Real;
Series=^TSeries;
TDays=array of Real;
Days=^TDays;

procedure Highdays( var Series;var Days;Window:Integer;Size:Integer);stdcall;
var
Ins,Outs:Real;
Highest,i,j:Integer;
begin
Ins:=Real (Series);
Outs:=Real (Days);
for I := 0 to Size — 1 do
begin
if i<Window-1 then
Outs:=3.4e38
else
begin
Highest:=0;
for J := 1 to window do
begin
if ((Ins-j)>(Ins-Highest)) then
Highest:=j;
end;
Outs:=Highest;
end;
Ins:=Ins+1;
Outs:=Outs+1;
end;
end;
exports Highdays name 'Пример библиотеки' ;
begin
end.

Заранее спасибо!
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.