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

Вниз

Perevod so Ci na paskal   Найти похожие ветки 

 
Mamed   (2005-10-19 13:40) [0]

Kto pomojet etot C kod perevodit Na paskal
long d = ((long) (0x07 & data[0])) << 21;
d += ((long) (0x7F & data[1])) << 14;  
d += ((long) (0x7F & data[2])) << 7;
d += (long) (0x7F & data[3]);
if (data[0] & 0x08) d = -d;


 
Mamed   (2005-10-19 13:59) [1]

XOTYA BI SKAJITEB KTO NIBUD CHTO EST V DELPHI MESTA & I <<


 
evvcom ©   (2005-10-19 14:00) [2]

var d Longint;
begin
 d := Longint(data[0] and $07) shl 21;
 Inc(d, Longint(data[1] and $7F) shl 14);
 // Дальше переводить или теперь справишься?

 if (data[0] and $08 = 0) then d := -d;
end;


 
Mamed   (2005-10-19 14:02) [3]

spasibo


 
Fay ©   (2005-10-19 14:07) [4]

2 evvcom ©   (19.10.05 14:00) [2]
if (data[0] and $08 <> 0) then d := -d;>
?


 
evvcom ©   (2005-10-19 14:15) [5]


> Fay ©   (19.10.05 14:07) [4]

А фиг знает! if (data[0] & 0x08) d = -d; я подумал, что это типа if (data[0] & 0x08) { d = -d; } Такой вроде синтаксис сишного if? Или там все же then присутствует?


 
Mamed   (2005-10-19 14:25) [6]

I esho vot eto kak perevodit?
 b = (BYTE) *(var.bstrVal); // Convert to BYTE

var = m_comport.GetInput();
  var.ChangeType(VT_BSTR); // Change data type to STR
  b = (BYTE) *(var.bstrVal); // Convert to BYTE


 
Fay ©   (2005-10-19 14:29) [7]

2 Mamed   (19.10.05 14:25) [6]
Смотри Help по Variants.


 
Mamed   (2005-10-24 12:18) [8]

byte b;
char v_chr;
b = (BYTE) *(v_chr);

oznachaet li eto na delpi
b =ord(v_chr);


 
umbra ©   (2005-10-24 12:22) [9]

да



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

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

Наверх




Память: 0.48 MB
Время: 0.041 c
14-1130224821
syte_ser78
2005-10-25 11:20
2005.11.13
програмирование сом/лпт


3-1128230792
YurikGL
2005-10-02 09:26
2005.11.13
Динамическое формирование текста Exception в ХП


14-1130070333
@BraIN
2005-10-23 16:25
2005.11.13
Программа для измерения температуры процессора


1-1130138943
td
2005-10-24 11:29
2005.11.13
только цифры в поле


1-1129886616
VID
2005-10-21 13:23
2005.11.13
Как выводить запрос на сохранение измений в Excel ?