|
|
Delphi iteger to binary convert - Delphi / Kylix Webmaster bilgi bankası, knowledge base Webmaster Araçları
| AnaSayfa > Delphi / Kylix > Delphi iteger to binary convert | |
| | Kategori | : Delphi / Kylix | | Gönderen | : Admin | | Tarih | : 2011-02-20 | | Puan | : 5  | Katılımcı : 55 | | Okunma | : 13980 | | | | | |
| |
function IntToBin(Value: LongInt;
Digits: Integer): String;
var
i: Integer;
begin
Result:='';
for i:=Digits downto 0 do
if Value and (1 shl i)<>0 then
Result:=Result + '1'
else
Result:=Result + '0';
end;
|
| Yorumlar | | Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin! | | Yorum Ekleme Aparatı | Yorum Eklemek için lütfen sol menuden giris yapınız.. | | Toplam 0 yorum listelendi. |
|
