как перевести символ в двоичный код и обратно?

← →
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 :=

> API

> Label1.Caption :=

а ты сам то пробовал ввеси ..... то тоже....

а ты сам то пробовал ввеси ..... то тоже....

Да куда уж мне...

так народ, совместными усилиями я нашел решение этой задачи
зацените :) :

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;

вот оно решение!! Всем спасибо

Или так:
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).

как перевести символ в двоичный код и обратно? Найти похожие ветки