cmdtemp: array[0..50] of char;
...........
cmdtemp[0]:=chr($ff);
cmdtemp[1]:=chr($97);
===========================================
free pascal 完整程序:
var
cmdtemp: array[0..50] of char;
begin
cmdtemp[0]:=chr($ff);
cmdtemp[1]:=chr($97);
writeln(cmdtemp[1]);
end.