用Tmemorystream写入任意10进制的十六进制问题。

Question

如题，
var
m:tmemorystream;
begin
....
m.write(inttohex(255,2),1); //inttohex返回的是string,无法进入，请问怎么写入任意数字的十六进制？
....

Answer 1

var
  stream:TMemoryStream;
  str:string;
begin
  str := inttohex(255,2);
  stream := TMemoryStream.Create;
  stream.WriteBuffer(str[1],Length(str));
  stream.SaveToFile('c:\1.txt');
  stream.Free;
end;

Answer 2

str:= inttohex(255,2);
m.write(str[1], length(str));