Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

FIL-23 © (2007-01-20 20:28:00)
собственно в этом и вопрос :)

TRUNK (2007-01-20 22:33:00) [1]
Или так:
functionValueToBitStr(Value: Cardinal; DigitCount: Integer): string; var i: Integer; begin if(DigitCount > 32) then DigitCount := 32; Result := ''; fori := DigitCount-1 downto0 do Result := Result + Chr(Ord('0')+((Value shri) and1)); end;
Биты выводятся справа налево, т.е. самый младший бит будет справа (например, для байта: 7,6,5,4,3,2,1,0).

FIL-23 (2007-01-20 21:48:00) [2]
так народ, совместными усилиями я нашел решение этой задачи
зацените :) :

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;

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

API (2007-01-20 21:28:00) [3]
а ты сам то пробовал ввеси ..... то тоже....

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

FIL-23 (2007-01-20 21:23:00) [4]

> API

> Label1.Caption :=

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

API (2007-01-20 21:10:00) [5]
что такое ord

F1 рулит нипадецки.

как вывести этот приобразованный бинарный код ну скажем в лабел

Label1.Caption :=

FIL-23 (2007-01-20 20:48:00) [6]

> Это в какой кодовой таблице такое?

это пример

API (2007-01-20 20:47:00) [7]
ну вот например 0 это 00000000
1 это 00000001
2 это 00000010
и т.д.
А это 0000000000001101
В это 0000000000010111

Это в какой кодовой таблице такое?

FIL-23 (2007-01-20 20:47:00) [8]

> Palladin

примного благадарен, не могли бы еще сказать что такое ord и еще если можно как вывести этот приобразованный бинарный код ну скажем в лабел. Зарание спасибож

Palladin (2007-01-20 20:42:00) [9]
inttobin(ord(буква));

FIL-23 (2007-01-20 20:40:00) [10]

> Palladin

ну вот например 0 это 00000000
1 это 00000001
2 это 00000010
и т.д.
А это 0000000000001101
В это 0000000000010111

Palladin (2007-01-20 20:38:00) [11]

> [3] FIL-23 ©

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

FIL-23 (2007-01-20 20:33:00) [12]

> StrToInt/IntToStr

асли там например А или Б то что тогда ?!

Virgo_Style (2007-01-20 20:31:00) [13]
код символа - ord(). Далее предвижу десятистраничное выяснение того, что такое двоичный код в данном контексте.

Anatoly Podgoretsky (2007-01-20 20:30:00) [14]
> FIL-23 (20.01.2007 20:28:00) [0]

StrToInt/IntToStr

Наверх

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