Mega Code Archive

 

Categories / Delphi / Algorithm Math

 

Decimal to binary cevirimi

function DecToBin(Z:Integer):String; var BinString: String; v,Index: Integer; begin Index := 1; v:=0; BinString := ''; Repeat if index>v then v:=v+4; BinString := IntToStr(Z mod 2) + BinString; if (Index mod 4 = 0) then BinString := ' ' + BinString; Z := Z div 2; Inc (Index); Until (Z=0)and (Index > v); DecToBin := TrimLeft(BinString); end; procedure TForm1.Button3Click(Sender: TObject); begin Edit1.Text:=Dectobin(strtoint(Edit1.text)); end;