Moin!
Ich habe versucht, diese funktion in deplhi zu übersetzen. Alles klappt in die Zeile BinImgPlus[idx]=0; Kann man pointer auf array in Delphi so nicht deklarieren? Ich möchte aber in Delphi die array-Struktur beibehalten. Geht das?
Vielen Dank!
Delphi-Quellcode:
int BinImgMatchProMile(
const bool* BinImg1,
const bool* BinImg2,
int nElements,
bool* BinImgPlus,
bool* BinImgMinus)
{
//local declares
register idx, MatchCounter=0;
//calculations
for (idx=0; idx<nElements; ++idx){
//local initialisation
BinImgPlus[idx]=0;
BinImgMinus[idx]=0;
//Find out what to do for this element
if (BinImg1[idx]==BinImg2[idx])
//Got a match in case BinImg1 == BinImg2
MatchCounter++;
else if (BinImg1[idx] && (!BinImg2[idx]))
//Got positive difference in case BinImg1 > BinImg2
BinImgPlus[idx]=1;
else if (BinImg2[idx] && (!BinImg1[idx]))
//Got negatice difference in case BinImg1 < BinImg2
BinImgMinus[idx]=1;
//endif
}
return (int)(((float)MatchCounter/(float)nElements)*1000.0);
}