27.11.2012, 10:02
|
Прохожий
|
|
Регистрация: 27.11.2012
Сообщения: 3
Репутация: 10
|
|
Осталось только сделать заполнение едита _
Вот код
Код:
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm5 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
a:integer;
implementation
{$R *.dfm}
procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
var q:integer;
begin
q:=length(edit1.text);
if (q>4)then
begin
key:=#0;
end;
begin
if not (key in ['0'..'9',#8,#44,'-']) then
key:=#0;
if (key in ['-']) then
begin
if pos('-', edit1.text) <> 0 then key:=#0;
end;
if (key in [#44]) then
begin
if pos(#44, edit1.text) <> 0 then key:=#0;
end;
begin
if edit1.Text = '0' then
if Key = '0' then
edit1.Text:= '';
end;
end;
end;
procedure TForm5.RadioButton1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
ShowMessage('Введенное вами число '+IntToStr(a));
end;
procedure TForm5.RadioButton2Click(Sender: TObject);
var i,ost,des,n,l:integer;
s,s1,sbox:string;
begin
des:=StrToInt(Edit1.Text);
n:=0;
i:=0;
s:='';
repeat
inc(n);
inc(i);
ost:=des mod 16;
des:=des div 16;
if ost>=10 then
begin
if ost=10 then s:=s+'A';
if ost=11 then s:=s+'B';
if ost=12 then s:=s+'C';
if ost=13 then s:=s+'D';
if ost=14 then s:=s+'E';
if ost=15 then s:=s+'F';
end
else
begin
s:=s+IntToStr(ost);
end;
until des=0;
n:=1;
l:=length(s);
for i:=1 to (l div 2) do
begin
sbox:=s[n];
s[n]:=s[l+1-n];
s[l+1-n]:=sbox[1];
inc(n);
end;
Label2.caption:='Шестнадцатиричное число:'+s;
end;
end.
|