unit1.pas

使用delphi语言编写的数值转换程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button2: TButton;
    GroupBox3: TGroupBox;
    Edit5: TEdit;
    Edit6: TEdit;
    Button3: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Edit7: TEdit;
    Label7: TLabel;
    GroupBox4: TGroupBox;
    Edit9: TEdit;
    Edit8: TEdit;
    Edit10: TEdit;
    Button4: TButton;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s:ansistring;
x:integer;
begin
if(edit1.text='')
then
begin
showmessage('输入框为空');
edit1.SetFocus;
end
else
begin
s:=edit1.Text;
s:='0x'+s;
x:=strtoint(s);
edit2.Text:=inttostr(x);
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

if not(key in['0'..'9','a'..'f','A'..'F',#8,#13])
then
key:=#0;

end;
procedure TForm1.Button2Click(Sender: TObject);
var
a:longint;
begin
a:=strtoint(edit4.text);
if(a<=214748364)and(a>=-214748364)and(edit4.Text<>'')
then
edit3.Text:='0x'+inttohex(strtoint(edit4.Text),2)
else
begin
edit4.Text:='';
showmessage('取值超出范围！');
edit4.SetFocus;
end;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9','-',#8,#13])
then
key:=#0;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
edit6.text:='';
edit7.text:='';
for i:=1 to length(edit5.Text) do
begin
edit6.Text:=edit6.text+inttostr(ord(edit5.Text[i]));
edit7.Text:=edit7.Text+inttohex(ord(edit5.Text[i]),2);
end;
edit7.Text:='0x'+edit7.Text;
end;
procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9','a'..'f','A'..'F',#8,#13])
then
key:=#0;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
s:ansistring;
x:integer;
begin
if(edit9.text='')
then
begin
showmessage('输入框为空');
edit9.SetFocus;
end
else
begin
s:=edit9.Text;
s:='0x'+s;
x:=strtoint(s);
edit8.Text:=inttostr(x);
edit10.Text:=chr(strtoint(edit8.text));




end;
end;

end.