谁有ASCII码表，谢谢了

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Integer;
  S: string;
begin
  S := '';
  J := 0;
  for I := 31 to 255 do begin
    S := S + Format('"%s"[%d][%x]', [Chr(I), I, I]);
    Inc(J, 5);
    if J > 80 then begin
      S := S + #13#10;
      J := 0;
    end;
  end;
  Memo1.Text := S;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Integer;
  S: string;
begin
  S := '';
  J := 0;
  for I := 31 to 255 do begin
    S := S + Format('"%s"[%d][%x]', [Chr(I), I, I]);
    Inc(J, 5);
    if J > 80 then begin
      S := S + #13#10;
      J := 0;
    end;
  end;
  Memo1.Text := S;
end;