Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

Помогите перевести несколько строк с С++ на 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, но с ней все понятно
в принципе, все понял. Спасибо.


 
Внук ©   (2002-07-29 12:49) [4]

>>Виктор Щербаков © (29.07.02 12:11)
Только to length-1, вроде?


 
Виктор Щербаков ©   (2002-07-29 12:51) [5]

Внук © (29.07.02 12:49)
ага :)



Страницы: 1 вся ветка

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-35153
RDA
2002-07-18 11:15
2002.08.12
Деревья


1-35335
sdram
2002-07-30 10:47
2002.08.12
Как вернуть код завершения?


1-35254
Freeze
2002-07-31 08:36
2002.08.12
Как программно отобразить рабочий стол как Web страницу


1-35236
Blacki
2002-07-30 12:40
2002.08.12
Умный алгоритм уменьшения картинки.


1-35275
ByteButcher
2002-07-31 12:15
2002.08.12
Disassembler на Delphi