朋友你应该知道字符串是由字符组成的。
所以伪代码
kk : ^Byte;
pp : String;
lp : Integer;
针对pp的操作
try
GetMem( kk, Length(pp) );
for lp := 0 to Length(pp) - 1 do
begin
kk[lp] = ord(pp[lp]);
end;
finally
FreeMem( kk );
end;
所以伪代码
kk : ^Byte;
pp : String;
lp : Integer;
针对pp的操作
try
GetMem( kk, Length(pp) );
for lp := 0 to Length(pp) - 1 do
begin
kk[lp] = ord(pp[lp]);
end;
finally
FreeMem( kk );
end;
for i:=1 to Length(s) do
ShowMessage(InttoStr(Ord(Str[i])));