Files
kcpmtk/test.pas
2023-10-03 01:54:45 -07:00

16 lines
188 B
ObjectPascal

program test;
type
ByteString = String[2];
{$I 'binary.inc'}
var
bstr : String[2] = '41';
bval : Byte;
begin
bval := ReadByte(bstr);
Writeln('hello', Char(bval));
end.