16E9E678DEFAEF6ADEF6
^^^^ ^^^^^^^^^^^^
应该有四个吧!!!!!
procedure TForm1.Button2Click(Sender: TObject);
var
s,ts:string;
ws:widestring;
i:integer;
begin
s:='16E9E678DEFAEF6ADEF6';
ts:='';
for i:=1 to (length(s) div 2) do
begin
ts:=ts+char(strtoint('$'+copy(s,2*i-1,2)));
end;
ws:=widestring(ts);
showmessage('['+ws+']');
end;