unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var WkByte : set of char;
var i,j,test : integer;
begin
WkByte := ['0'..'9', 'A'..'F', 'a'..'f'];
for I := 1 to length(edit1.Text) do
begin
WkByte:=copy(edit1.text,i,1);
test:= integer(ord(WkByte)) ;
edit2.text := edit2.text + format('%1d',[test]);
end;
{$IFDEF WIN32}
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var WkByte : set of char;
var i,j,test : integer;
begin
WkByte := ['0'..'9', 'A'..'F', 'a'..'f'];
for I := 1 to length(edit1.Text) do
begin
WkByte:=copy(edit1.text,i,1);
test:= integer(ord(WkByte)) ;
edit2.text := edit2.text + format('%1d',[test]);
end;
{$IFDEF WIN32}
end;
end.