如何写这段程序

Question

function TForm1.ConvertString(vtData:array of Variant):string;
var
 iChar:Char;
 flag:Integer;
 flagstr,str:string;
 i:integer;
begin
 for i :=Low(vtData)  to High(vtData) do
 begin
    iChar:=vtData[i];
    flag:=ord(iChar);//这二句我想得到vtData每一位的ASCII不知道如何写。
    if flag<10 then
       flagstr:='00'+IntToStr(flag)
    else if (flag<100) and (flag>9) then
       flagstr:='0'+IntToStr(flag)
    else
       flagstr:=IntToStr(flag) ;
    str:=str+flagstr;
 end;
 result:=str;
end;问题见注释。这二句我想得到vtData每一位的ASCII不知道如何写。

Answer 1

Str := VarToStr(vtData[I]);
for I := 1 to Length(Str) do
begin
  iChar := Str[I];
  Flag := Ord(iChar);
  .
  .
  .
end;

Answer 2

使用String或者Byte数组都是可以得到Ord的，不要使用WideString就行。其他可以用楼上的方法，虽然他只是处理了一个字符串。