How to Convert a String of Integers o an Array of Byte
如何将eger串转化成
The best solution is to dynamically create an .gif' /> of that has length equal to that of the . _disibledevent=> ...
implementation
function ArrOfByte(AStr: String): TByteArr;
var
j: eger;
begin
SetLength( Result, Length(AStr)) ;
for j := 0 to Length(AStr) - 1 do
Result[j] := ord(AStr[j + 1]) - 48;
end;
最新评论