Главная страница
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.01 c
3-35201
3asys
2002-07-23 13:51
2002.08.12
Ошибка при фильтрации строкового поля в ADO


14-35408
Stanislav SM
2002-07-15 18:32
2002.08.12
Help WinApi


1-35253
^SANYA
2002-07-30 15:43
2002.08.12
Перехват клавиш, нажатых в Win32


1-35359
Faun
2002-07-30 14:39
2002.08.12
Не верю, что никто не знает!


14-35454
Digitalloops
2002-07-17 21:56
2002.08.12
Сколько стоит монитор?