Y
yeo
Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何将字符转换为16进制数
假如：我在Memo控件中输入“D2”，则转换为16进制的“D2”；
输入“yy”，则忽略（因为不为16进制数）
假如：我在Memo控件中输入“D2”，则转换为16进制的“D2”；
输入“yy”，则忽略（因为不为16进制数）
D
duxing
Unregistered / Unconfirmed
GUEST, unregistred user!
var
I: Integer;
begin
for I:= 1 to Length(a)do
Memo1.Lines.Add(IntToHex(Ord(a), 2));
end;
I: Integer;
begin
for I:= 1 to Length(a)do
Memo1.Lines.Add(IntToHex(Ord(a), 2));
end;
Y
yeo
Unregistered / Unconfirmed
GUEST, unregistred user!
看来您看错问题了吧？？Lines.Add？？？
我的意思是我在Memo中输入，然后我需要在打印机输出相应的代码（注意是代码，而不是字符）
我的意思是我在Memo中输入，然后我需要在打印机输出相应的代码（注意是代码，而不是字符）
D
duxing
Unregistered / Unconfirmed
GUEST, unregistred user!
那直接输入就行了~~ 做个判断~~
X
xianguo
Unregistered / Unconfirmed
GUEST, unregistred user!
function IsHex(str : string) : Boolean;
var
v : Integer;
begin
Result := TryStrToInt('$' + str, v);
end;
var
v : Integer;
begin
Result := TryStrToInt('$' + str, v);
end;
S
sngirl
Unregistered / Unconfirmed
GUEST, unregistred user!
我做了个成熟的函数，给个email，我明天给你发过去
Y
yeo
Unregistered / Unconfirmed
GUEST, unregistred user!
bearyeo@126.com
W
wp231957
Unregistered / Unconfirmed
GUEST, unregistred user!
很简单呀
有啥难度吗
有啥难度吗
S
sngirl
Unregistered / Unconfirmed
GUEST, unregistred user!
var
i,j,k:integer;
Tempstr:array[1..15] of string;
TempMid:string;
FT:boolean;
begin
for i:=1 to 15do
begin
Tempstr:=inttoHex(i,1);
end;
for j:=1 to high(Tempstr)do
begin
for k:=1 to length(memo.text)do
begin
if Tempstr[j]:=copy(memo.text,k,2) then
begin
TempMid:=TempMid+Tempstr[j];
end
else
begin
showmessage('有不能转换的字符（超出1..F）');
exit;
end;
end;
end;
if TempMid<>'' then
memo.text:=TempMid;
end;
i,j,k:integer;
Tempstr:array[1..15] of string;
TempMid:string;
FT:boolean;
begin
for i:=1 to 15do
begin
Tempstr:=inttoHex(i,1);
end;
for j:=1 to high(Tempstr)do
begin
for k:=1 to length(memo.text)do
begin
if Tempstr[j]:=copy(memo.text,k,2) then
begin
TempMid:=TempMid+Tempstr[j];
end
else
begin
showmessage('有不能转换的字符（超出1..F）');
exit;
end;
end;
end;
if TempMid<>'' then
memo.text:=TempMid;
end;
Y
yeo
Unregistered / Unconfirmed
GUEST, unregistred user!
您的回答仍未能解决我的问题，假如我要的是22H，但按照你的方法，我获得的是2个02H；
而且我需要的是在memo中输入，在打印机输出相关的代码（即我在memo中输入22，则输出到打印机为22H）
而且我需要的是在memo中输入，在打印机输出相关的代码（即我在memo中输入22，则输出到打印机为22H）
大
大器晚成
Unregistered / Unconfirmed
GUEST, unregistred user!
可以给动态生成的控件一个固定的名字如：Auto+inttostr(i) //i 控件的生成顺序，第一个为1，第二个为2。。。。或给控件的tag值（0，1....）。
另外，动态生成的控件并不影响速度，不用时，visible:=false就可以了。
delphi 会在关闭程序时，把它free掉。
另外，动态生成的控件并不影响速度，不用时，visible:=false就可以了。
delphi 会在关闭程序时，把它free掉。
Y
yeo
Unregistered / Unconfirmed
GUEST, unregistred user!
我知道，生成动态控件已经没有问题，但现在需要的是要删除，而不是隐藏；
K
kjzzn
Unregistered / Unconfirmed
GUEST, unregistred user!
保存一下就可以了
implementation
{$R *.dfm}
var
a:array of tobject;
i:integer=10;
j:integer=10;
n:integer=0;
procedure TForm1.Button1Click(Sender: TObject);
var
s:Tcheckbox;
begin
s:=Tcheckbox.Create(self);
s.Name:='aa'+inttostr
;
inc;
s.Parent:=self;
s.Left:=i;
s.Top:=j;
i:=i+10;
j:=j+10;
setlength(a,length(a)+1);
a[length(a)-1]:=s;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=length(a)-1do
wnto 0do
if assigned(a) then
a.Free;
end;
end.
implementation
{$R *.dfm}
var
a:array of tobject;
i:integer=10;
j:integer=10;
n:integer=0;
procedure TForm1.Button1Click(Sender: TObject);
var
s:Tcheckbox;
begin
s:=Tcheckbox.Create(self);
s.Name:='aa'+inttostr
;inc
;s.Parent:=self;
s.Left:=i;
s.Top:=j;
i:=i+10;
j:=j+10;
setlength(a,length(a)+1);
a[length(a)-1]:=s;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=length(a)-1do
wnto 0do
if assigned(a) then
a.Free;
end;
end.
0
007vivi
Unregistered / Unconfirmed
GUEST, unregistred user!
for i:=0 to compments.count-1do
begin
if x is TCheckbox then
begin
x.free;
end;
end;
begin
if x is TCheckbox then
begin
x.free;
end;
end;
W
wwa
Unregistered / Unconfirmed
GUEST, unregistred user!
可在一个容器里，不要时将容器一砸，...