紧急问题？？？？？？？？？？？？？？？？？？？

Question

<%@ LANGUAGE="VBScript" %>
<!--#include file="ADOVBS.INC"-->
<%
dim encode,x,tempnum
x="FBKMZ542"
for i=1 to len(x) 
TempNum=hex(asc(mid(x,i,1))) 
if len(TempNum)=4 then 
encode=encode & cstr(TempNum) 
else 
encode=encode & "00" & cstr(TempNum) 
end if 
next 
Response.write encode
%> 
如何把上面的代码转换为DELPHI代码？？？，转后结果为：encode=00460042004B004D005A003500340032

Answer 1

var
    encode,x,tempnum:string;
    i:integer;
begin
    x:='FBKMZ542';
    for i:=1 to length(x) do
    begin
        tempnum:=IntToHex(ord(x[i]),1);
        if length(TempNum)=4 then
            encode:=encode + (TempNum)
        else
            encode:=encode + '00' + TempNum;
    end;
    result:=encode;

Answer 2

var
  encode, x, tempnum: string;
  i: integer;
begin
  x := 'FBKMZ542';
  tempNum := '';
  enCode := '';
  for i:=1 to Length(x) do
    tempNum := tempNum + IntToHex(ord(x[i]), 4);
  if Length(tempNum)=4 then
    enCode := enCode + tempNum
  else
    enCode := enCode + '00' + tempNum;
  showMessage(enCode);
end;

Answer 3

哦，我的写错了，没看到gzmhero(hihihi)已经写出来了gzmhero(hihihi)的是正确答案