Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];
Вниз
как перевести символ в двоичный код и обратно? Найти похожие ветки
← →
FIL-23 © (2007-01-20 20:28) [0]собственно в этом и вопрос :)
← →
Anatoly Podgoretsky © (2007-01-20 20:30) [1]> FIL-23 (20.01.2007 20:28:00) [0]
StrToInt/IntToStr
← →
Virgo_Style © (2007-01-20 20:31) [2]код символа - ord(). Далее предвижу десятистраничное выяснение того, что такое двоичный код в данном контексте.
← →
FIL-23 © (2007-01-20 20:33) [3]
> StrToInt/IntToStr
асли там например А или Б то что тогда ?!
← →
Palladin © (2007-01-20 20:38) [4]
> [3] FIL-23 ©
что такое двоичный код и почему он не троичный?
← →
FIL-23 © (2007-01-20 20:40) [5]
> Palladin
ну вот например 0 это 00000000
1 это 00000001
2 это 00000010
и т.д.
А это 0000000000001101
В это 0000000000010111
← →
Palladin © (2007-01-20 20:42) [6]inttobin(ord(буква));
← →
API © (2007-01-20 20:47) [7]ну вот например 0 это 00000000
1 это 00000001
2 это 00000010
и т.д.
А это 0000000000001101
В это 0000000000010111
Это в какой кодовой таблице такое?
← →
FIL-23 © (2007-01-20 20:47) [8]
> Palladin
примного благадарен, не могли бы еще сказать что такое ord и еще если можно как вывести этот приобразованный бинарный код ну скажем в лабел. Зарание спасибож
← →
FIL-23 © (2007-01-20 20:48) [9]
> Это в какой кодовой таблице такое?
это пример
← →
API © (2007-01-20 21:10) [10]что такое ord
F1 рулит нипадецки.
как вывести этот приобразованный бинарный код ну скажем в лабел
Label1.Caption :=
← →
FIL-23 © (2007-01-20 21:23) [11]
> API
> Label1.Caption :=
а ты сам то пробовал ввеси ..... то тоже....
← →
API © (2007-01-20 21:28) [12]а ты сам то пробовал ввеси ..... то тоже....
Да куда уж мне...
← →
FIL-23 © (2007-01-20 21:48) [13]так народ, совместными усилиями я нашел решение этой задачи
зацените :) :implementation
function IntToBin(IValue : Int64; NumBits : word = 32) : string;
var RetVar : string;
i,ILen : byte;
begin
RetVar := "";
case NumBits of
32 : IValue := dword(IValue);
16 : IValue := word(IValue);
8 : IValue := byte(IValue);
end;
while IValue <> 0 do begin
Retvar := char(48 + (IValue and 1)) + RetVar;
IValue := IValue shr 1;
end;
if RetVar = "" then Retvar := "0";
Result := RetVar;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
b:string;
begin
label1.Caption:=inttostr(ord(memo1.text[1]));
label2.Caption:=IntToBin(strtoint(label1.Caption));
end;
вот оно решение!! Всем спасибо
← →
TRUNK © (2007-01-20 22:33) [14]Или так:
function ValueToBitStr(Value: Cardinal; DigitCount: Integer): string;
var
i: Integer;
begin
if (DigitCount > 32) then
DigitCount := 32;
Result := "";
for i := DigitCount-1 downto 0 do
Result := Result + Chr(Ord("0")+((Value shr i) and 1));
end;
Биты выводятся справа налево, т.е. самый младший бит будет справа (например, для байта: 7,6,5,4,3,2,1,0).
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.041 c
