перевод числа

[kommunist]

здраствуйте, неподскажите есть ли какая нибудь функция в delphi для перевода десятичного числа в двоичное?

[kommunist]

ну что неужели никто не подскажет?

[AlDelta]

Подскажет, подскажет

function IntToBin(Value: LongInt;Size: Integer): String;
var

i: Integer;
begin

Result:='';
for i:=Size downto 0 do begin
if Value and (1 shl i)<>0 then begin
Result:=Result+'1';
end else begin
Result:=Result+'0';
end;
end;
end;

function BinToInt(Value: String): LongInt;
var

i,Size: Integer;
begin

Result:=0;
Size:=Length(Value);
for i:=Size downto 0 do begin
if Copy(Value,i,1)='1' then begin
Result:=Result+(1 shl i);
end;
end;
end;

[kommunist]

Aldelta Большое тебе спасибо

[AlDelta]

Сообщение от kommunist

Aldelta Большое тебе спасибо

Будь ласка, звертайтесь якщо треба.

[Maslan]

У меня реализация немного по-другому... ТАм глюки были из-за выравнивания под размер регистра (поэтому тип - Cardinal);

 
Function Int2Bin(i:Cardinal):String;
Var p,j:Cardinal;
 begin
 p:=0;
 While (1 shl p)<i do inc(p);
 For j:=0 to p-1 do
  Result:=Chr(48+Ord((I AND(1 shl j))<>0))+Result;
 end;
Function Binary(s:string):Cardinal;
Var j:Cardinal;
 begin
 result:=0;
 For j:=1 to Length(s) do
  begin
    result:=Result+ (Ord(s[j])-48)shl(Length(s)-j);
  end;
 end;