对于一个字节 如何获得它全部的8位的信息，能否显示其内容

Question

对于一个字节  如何获得它全部的8位的信息，能否显示其内容

Answer 1

我的意思是我用什么方法能将各个字节在memo  或者 edit.text 中显示出来

Answer 2

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  a: byte;
  function DecToBinStr(n: integer): string;
  var
    S: string;
    i: integer;
    Negative: boolean;
  begin
    if n < 0 then
      Negative := true
    else
      Negative := False;    n := Abs(n);
    for i := 1 to SizeOf(n) * 8 do
    begin
      if n < 0 then
        S := S + '1'
      else
        S := S + '0';      n := n shl 1;
    end;
    Delete(S, 1, Pos('1', S) - 1); //remove leading zeros
    if Negative then
      S := '-' + S;
    Result := S;
  end;begin
  a := 255;
  showmessage(DecToBinStr(a));
end;