MAC地址0050BAEC71A6 如何转换为下面的情况，请大家帮我，很急(100分)

G

gdcqs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #1

+string(char($00))
+string(char($50))
+string(char($BA))
+string(char($EC))
+string(char($71))
+string(char($A6));

 

S

Sterntaler

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #2

这样行吗？
uses StrUtils;

var
mac: Int64;
r: string;
begin
mac := $0050BAEC71A6;
r := AnsiReplaceText(Format('%12s', [IntToHex(mac, 2)]), ' ', '0');

 

子

子陵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #3

var
Mac:string;
Result:string;
i:integer;
begin
Mac:='0050BAEC71A6';
Result:='000000'; //要初始化
for i:=1 to 6 do
begin
Result:=char(StrToInt('$'+Mac[2*i-1]+Mac[2*i])); //加'$'表示是16进制数
end;
end;

其中Result就是你想要的结果,但要注意,转化后Result[1]..[6]都有可能为#0,所以显示不完全.如上面的Result就是#0'P红q'#$A6

 

G

gdcqs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-13

• #4

多人接受答案了。