Помогите перевести несколько строк с С++ на PAS

← →
Antonius (2002-07-29 12:03) [0]

Надо перевести след. строки, когда-то давно я умел это делать и сам:) Что-то туплю с порядком выполнения разных ++ :)

writepos-=o; //writepos:=writepos-o; Правильно?
length/=2; // length:=length/2; ?

for (l=0;l<length;l++) *buffer++=buf[(readposl+l)*2]; // Это вообще сказка, мозги заплетаются, ничего не понимаю :)

return length*2; //Result:=length*2 ?

заранее спасибо.

← →
Виктор Щербаков © (2002-07-29 12:10) [1]

Приведи декларации переменных.
Но вообще, что-то вроде
for i := 0 to length do
begin
buffer^ := buf[(readposl + l) * 2];
Inc(buffer)
end;

Result := length * 2;
Exit;

← →
Виктор Щербаков © (2002-07-29 12:11) [2]

Перепутал.
for l := 0 to length do

← →
Antonius (2002-07-29 12:42) [3]

Это все внутри процедуры:

DWORD CALLBACK stleft(HSTREAM handle, short *buffer, DWORD length, BUFSTUFF *b)

DWORD l; //Переменная L, но с ней все понятно
в принципе, все понял. Спасибо.

Помогите перевести несколько строк с С++ на PAS Найти похожие ветки