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;