
Последние записи
- Форматирование таблиц в документе (Microsoft Office Word)
- Добавить текст на картинку JPEG
- Повторяющийся звук в Delphi
- Выгрузка TImage в Excel
- Где курсор
- Удалить повторы со сложением значений (Microsoft Office Excel)
- Bass регулировка по отдельности левого и правого каналов звука
- Как ускорить замену текста в MEMO?
- Вывод картинки (текстуры) на OpenGL 3.3 и Qt C++ с плавающем диапазоном координат по оси X
- Поиск ячеек определенного цвета (Microsoft Office Excel)

3rd
Июл
Перевод строки в двоичный код и обратно
Posted by Chas under Delphi
s-andriano
function Str2Bin(aStr: string): string;
const bid : array[0..1]of char = ('0','1');
var
iChar, iBit: Integer;
s: string;
begin
s := '';
for iChar := 1 to Length(aStr) do
for iBit := 7 downto 0 do
s := s + bid[(Byte(aStr[iChar]) shr iBit) and 1];
Str2Bin := s;
end;
function Bin2Str(aStr: string): string;
var
s: string;
i,j,k : longint;
ich : integer;
begin
s := '';
k := 1;
for i := 1 to length(aStr) div 8 do begin
ich := 0;
for j := 0 to 7 do begin
ich := ich*2 + byte(aStr[k]) - byte('0');
inc(k);
end;
s := s + char(ich);
end;
Bin2Str := s;
end;
var
s0,s1,s2 : string;
begin
s0 := 'Hello';
s1 := Str2Bin(s0);
s2 := Bin2Str(s1);
writeln('[',s0,'][',s1,'][',s2,']');
end.
Случайные статьи

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)