// binary character turning Ten-Binary Function Bintodec (Value: String): string; // integer; var str: string; int: integer; i: integer; begin str: = Uppercase (value); int: = 0; for i: = 1 to Length (STR) do int: = int * 2 ORD (STR [I]) - 48; Result: = INTOSTR (INT);
// Decimal turn binary function 1 function mod_num (n1, n2: integer): integer; // Repair number begin Result: = N1-N1 Div N2 * N2END; // Decimal turn binary function two function reverse (s: string : String; // Take the crust VAR I, Num: integer; st: string; begin num: = length (s); st: = '; for i: = Num Downto 1 do begin st: = st s [ I]; End; Result: = st; end; // decimal transformation binary function decobin (value: integer): string; var st: string; n: integer; begin st: = '; n: = value; while n > = 2 DO Begin St: = ST INTOSTR (MOD_NUM (N, 2)); N: = N DIV 2; End; St: = St INTOSTR (N); Result: = Reverse (ST); END;
Procedure tform1.checkbox2click (sender: TOBJECT); begin if checkbox2.checked the self.form else: = fsstayontop else self.formstyle: = fsnormal;
Procedure TForm1.Button2Click (Sender: Tobject); Begintry E11.TEXT: = '; E22.Text: ='; e11.text: = DECTOBIN (STRTOINT (E1.Text)); E22.Text: = Uppercase (Format ('% x', [STRTOINT (E1.TEXT)]); Except ON EconvertError Do ShowMessage ('Numerical Errors'); End; End;
Procedure tform1.button4click (sender: TOBJECT); begintry e33.text: = '; e55.text: ='; e33.text: = bintodec (e3.text); E55.Text: = Uppercase (Format ('% X ', [STRTOINT (Bintodec (E3.Text))])); Except ON EconvertError Do ShowMessage (' Numerical Errors); End; End;
Procedure TForm1.Button5Click (Sender: Tobject); Begintry E44.Text: = '; E66.Text: ='; E44.Text: = INTOSTR (STRTOINT ('$' E4.Text)); E66.Text: = DECTOBIN (STRTOINT ('$' E4.Text)); Except ON EconvertError Do ShowMessage ('Numerical Error'); end; end; end.
