C++ nach Delphi. (Bass.dll code Übersetzung)

[Wishmaster]

Hi

Wer kennt sich mit C++ aus. Ich brauche ne Übersetzung C++ nach Delphi.

Code:

int pan; // panning position, set as you would with BASS_ChannelSetAttributes

void CALLBACK PanDSP(HDSP handle, DWORD channel, void *buffer, DWORD length, DWORD user)
{
    short *s=buffer;
    for (;length;length-=4,s+=2) {
        if (pan<0) s[1]=s[1]*(100+pan)/100; // pan left = reduce right
        else if (pan>0) s[0]=s[0]*(100-pan)/100; // vice versa
    }
}