Konverzia integer na binary string.

function IntToBinStr(num: integer): string; 
var 
  i: integer; 
begin 
  for i := 0 to 31 do 
   Result := IntToStr((num shr i) and 1)+Result; 
end;
Tento článok pridal igo dňa 27.08.2001 o 00:00. Je zaradený v kategóriách Delphi a má priradené tagy , , . Ak chcete, môžete reagovať na tento článok. Sledovať reakcie na tento článok môžete aj pomocou RSS 2.0.