Прошу помощи в конвертации на Делфи кода от С++.

[SkAndrew]

еще один маленький вопрос - в исходнике:

  for (l=0;l<length && r->readpos<bufsamp;l+=2) {
                  f=(float)modf(r->readpos,&i);
                  p=(int)i;
                  *buffer++=(short)((1.0-f)*r->buf[p]+f*r->buf[p+1]);
                  r->readpos+=r->speed;
            }

переменная *buffer увеличивается в цикле на единицу, я правильно перевел эту чать:

*buffer++=(short)((1.0-f)*r->buf[p]+f*r->buf[p+1]);

а это мой перевод:

    while (l<length)or(r.readpos<bufsamp) do
    begin
      f := fmod(r.readpos, i);
      p := Round(i);
      buffer^ := Round((1.0-f)*r.buf[p]+f*r.buf[p+1]);
      r.readpos := r.readpos+r.speed;
      Inc(buffer);
      Inc(l,2);
    end;

правильно? нет ошибок?

Спасибо!

[pu4koff]

вместо or нужен and
вместо Round правильнее использовать Trunc
остальное вроде всё так