delphi 怎么接收Edit输入的十六进制数呢??!!能不能附上代码参考!!! 5
自己解决了:varsrc:string;VAR:array[0..140]ofbyte;beginsrc:=Edit18.text;VAR[i]:=StrToint('$...
自己解决了:
var
src:string;
VAR:array[0..140] of byte ;
begin
src := Edit18.text;
VAR[i] :=StrToint('$'+src) ;
.................. 展开
var
src:string;
VAR:array[0..140] of byte ;
begin
src := Edit18.text;
VAR[i] :=StrToint('$'+src) ;
.................. 展开
1个回答
2015-07-31
展开全部
//如果十六进制非字符串, 无须转换, 直接赋值即可
var
i: Integer;
begin
i := $FF;
Edit1.Text:=(IntToStr(i));
end;
//如果十六进制是字符串, 用 StrToInt 即可
var
s: string;
i: Integer;
begin
s := '$FF';
i := StrToInt(s);
Edit1.Text:=(IntToStr(i));
end;
//如果你接收的数据里没有$, 加上就得了嘛
var
s: string;
i: Integer;
begin
s := 'FF';
i := '$'+StrToInt(s);
Edit1.Text:=(IntToStr(i));
end;
var
i: Integer;
begin
i := $FF;
Edit1.Text:=(IntToStr(i));
end;
//如果十六进制是字符串, 用 StrToInt 即可
var
s: string;
i: Integer;
begin
s := '$FF';
i := StrToInt(s);
Edit1.Text:=(IntToStr(i));
end;
//如果你接收的数据里没有$, 加上就得了嘛
var
s: string;
i: Integer;
begin
s := 'FF';
i := '$'+StrToInt(s);
Edit1.Text:=(IntToStr(i));
end;
追问
不是啊!!!是用一个变量 接收Edit输入的十六进制数!!如XXX=edit.text
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询