Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2008, 08:46   #1
hijke
Пользователь
 
Регистрация: 17.10.2008
Сообщений: 26
По умолчанию strtobin

Небольшая проблемка...
Есть програмка которая принимает строку по TCP/IP и выводит ее в мемо поле. Нужно при приеме перевести эту строку в двоичный код...помогите плиз...заранее спасибо
hijke вне форума Ответить с цитированием
Старый 03.12.2008, 10:08   #2
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

shl, shr, и если я не ошибаюсь то для понимания символ перевести в число, и перевести число в двоичную систему .

а можно и так =)
Можно делить его на два, записывая остаток справа налево:

20/2 = 10, остаток 0

10/2=5, остаток 0

5/2=2, остаток 1

2/2=1, остаток 0

1/2=0, остаток 1

В результате получаем: 10100b = 20
Skype : UASm1Le.

Последний раз редактировалось Sm1Le; 03.12.2008 в 10:14.
Sm1Le вне форума Ответить с цитированием
Старый 03.12.2008, 10:12   #3
hijke
Пользователь
 
Регистрация: 17.10.2008
Сообщений: 26
По умолчанию

а как - нибудь поподробнее "на пальцах" можешь показать?
приходит строка в строке число...мне ее надо перевести в двоичную хрень и парсить...

Последний раз редактировалось hijke; 03.12.2008 в 10:15.
hijke вне форума Ответить с цитированием
Старый 03.12.2008, 10:15   #4
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

а это как ?
Skype : UASm1Le.
Sm1Le вне форума Ответить с цитированием
Старый 03.12.2008, 10:19   #5
hijke
Пользователь
 
Регистрация: 17.10.2008
Сообщений: 26
По умолчанию

ну я имел ввиду кусок кода,хотябы примерно...)
hijke вне форума Ответить с цитированием
Старый 03.12.2008, 10:21   #6
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

arr[8]:byte
i:integer
c:char;
a:byte;
for i:=1 to 8 do
begin
ar[i]:=0;
end;
a:=BYTE(c);
for i:=8 downto 1 do
begin
a:=a div 2;
arr[i]:=a;
end;

Помойму так проверь синтаксис и не уверен в div. Ноя помню делал смешением =)
Skype : UASm1Le.

Последний раз редактировалось Sm1Le; 03.12.2008 в 10:29.
Sm1Le вне форума Ответить с цитированием
Старый 03.12.2008, 10:46   #7
hijke
Пользователь
 
Регистрация: 17.10.2008
Сообщений: 26
По умолчанию

понятн)спасибо)
hijke вне форума Ответить с цитированием
Старый 03.12.2008, 10:59   #8
hijke
Пользователь
 
Регистрация: 17.10.2008
Сообщений: 26
По умолчанию

Блин если не затруднит,помогешь еще с одной проблемкой?
hijke вне форума Ответить с цитированием
Старый 03.12.2008, 11:12   #9
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

То hijke
Тут не чат, к которому вы привыкли, а форум.
Поэтому пользуйтесь кнопкой "Правка", а не плодите пустых по смыслу сообшений. Если есть вопрос - задавайте...
Еще раз, для лучшего усвоения - тут вам не чат...
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц