Sekarang kita akan menyajikan suatu fungsi sederhana yaitu mengkonversi dari bilangan desimal ke ke bilangan biner dengan menggunakan Borland Delphi. Silakan lihat fungsi di DecToBinStr berikut ini.
function TForm1.DecToBinStr(bil: integer): string;
var
str : string;
i : integer;
negative: Boolean;
begin
if bil < 0 then
negative := true;
bil:= abs(bil);
for i:= 1 to SizeOf(bil) * 8 do
begin
if bil < 0 then
str := str + '1'
else
str := str + '0';
bil := bil shl 1;
end;
delete(str,1,pos('1',str)-1);
if negative then str := '-' + str;
result := str;
end;
Source code lengkap dari project ini bisa Anda download di sini. Segala macam saran, kritik dan komentar silakan dikirimkan ke sony-ak@sony-ak.com. Untuk tips dan trik lain silakan baca di www.sony-ak.com.
Terimakasih.
               (
geocities.com/hackermuda)