| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Perevod so Ci na paskal

Mamed ©   (2005-10-19 13:40:00) 

Kto pomojet etot C kod perevodit Na paskal
long d = ((long) (0x07 & data[0]))

---

umbra   (2005-10-24 12:22:00) [1]

да

---

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

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

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

---

Fay   (2005-10-19 14:29:00) [3]

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

---

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

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

---

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

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

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

---

Fay   (2005-10-19 14:07:00) [6]

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

---

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

spasibo

---

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

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 13:59:00) [9]

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

---

Наверх