Автор Tiko Simonyan задал вопрос в разделе Другие языки и технологии
Функция HexToBin.Дельфи. и получил лучший ответ
Ответ от BANER[гуру]
вводишь число в 16-ричной системе счисления, переводит в двоичную))
Ответ от Croacker[гуру]
Что хочешь получить в полеввода?
Конечно не будет работать, - второй аргумент сходу неверный.
третий аргумент почему 6?
Что хочешь получить в полеввода?
Конечно не будет работать, - второй аргумент сходу неверный.
третий аргумент почему 6?
Ответ от Дмитрий Краснов[активный]
var
E: Extended;
//Make sure there is room for null terminator
Buf: array[0..SizeOf(Extended) * 2] of Char;
begin
E := Pi;
Label1.Caption := Format('Pi starts off as %.15f', [E]);
BinToHex(@E, Buf, SizeOf(E));
//Slot in the null terminator for the PChar,
//so we can display it easily
Buf[SizeOf(Buf) - 1] := #0;
Label2.Caption := Format('As text, the binary
contents of Pi look like %s', [Buf]);
//Translate just the characters,
//not the null terminator
HexToBin(Buf, @E, SizeOf(Buf) - 1);
Label3.Caption := Format('Back from text to binary,
Pi is now %.15f', [E]);
end;
var
E: Extended;
//Make sure there is room for null terminator
Buf: array[0..SizeOf(Extended) * 2] of Char;
begin
E := Pi;
Label1.Caption := Format('Pi starts off as %.15f', [E]);
BinToHex(@E, Buf, SizeOf(E));
//Slot in the null terminator for the PChar,
//so we can display it easily
Buf[SizeOf(Buf) - 1] := #0;
Label2.Caption := Format('As text, the binary
contents of Pi look like %s', [Buf]);
//Translate just the characters,
//not the null terminator
HexToBin(Buf, @E, SizeOf(Buf) - 1);
Label3.Caption := Format('Back from text to binary,
Pi is now %.15f', [E]);
end;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Функция HexToBin.Дельфи.