Форум: "Основная";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.044 c