~~~~~~~~~~~~~~~~~~~~~~~~~
interface
uses
...
type
//dynamic array type for Array of Byte
TByteArr = array of byte;
...
implementation
function ArrOfByte(AStr: String): TByteArr;
var
j: integer;
begin
SetLength( Result, Length(AStr)) ;
for j := 0 to Length(AStr) - 1 do
Result[j] := ord(AStr[j + 1]) - 48;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Connect and disconnect to/from the Internet
« How to store a TDateTime in the Registry

