Консультация № 169268
10.06.2009, 23:57
0.00 руб.
0 2 1
Здравствуйте уважаемые эксперты!
Вопрос: как можно осуществить перевод чисел с 2 в 16-ричную систему?

Приложение:
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);

Обсуждение

Неизвестный
11.06.2009, 16:30
общий
это ответ
Здравствуйте, Oleg1488.
Вот функция которая вам нужна.

Приложение:
...
uses Math;
...
function BinToHexE(bin:string):string;
var
i:integer;
dec:integer;

begin
dec := 0;
for i := 1 to Length(bin) do
if bin[i] <> '0' then
dec := dec + round(Power(2, Length(bin) - i ));

Result := IntToHex(dec,1)
end;
Неизвестный
14.06.2009, 15:11
общий
спасибо
Форма ответа