Delphi 有可以顯示每一個字元包括不可見字元的 ASC II Code 的指令嗎..

是這個嗎？

function ShowCode(ACode: string): string;
Var sTmp: string;
  i: integer;
begin
  Result := '';
  for i := 1 to Length(ACode) do begin
    sTmp := Format('%X', [Ord(ACode[i])]);
    if Length(sTmp) = 1 then
      sTmp := '0' + sTmp;
    Result := Result + sTmp + ' ';
  end;
end;

--- 每個人都是一本書

DELPHI 要顯示字元 ASCII CODE 的指令為 ORD , 可參考 HELP 中的說明. 另外版主附的那個 HELP, 我改了一下, 可以變得更精簡... :) function ShowCode(ACode: string): string; Var sTmp: string; i: integer; begin Result := ''; for i := 1 to Length(ACode) do begin Result := Result IntToHex(Ord(ACode[i]),2) ' ' ; end; end; ...Aquarius

------
水瓶男的blog: http://791909.blogspot.com

引言: 是這個嗎？

function ShowCode(ACode: string): string;
Var sTmp: string;
  i: integer;
begin
  Result := '';
  for i := 1 to Length(ACode) do begin
    sTmp := Format('%X', [Ord(ACode[i])]);
    if Length(sTmp) = 1 then
      sTmp := '0' + sTmp;
    Result := Result + sTmp + ' ';
  end;
end;

--- 每個人都是一本書

這樣轉出來是16進位可以轉成10進位嗎 如果要再將16進位 or 10 進位 轉成字元要怎麼做.. 謝謝...

10 進位轉 16 進位: IntToHex 16 進位轉 10 進位參考: http://www.delphi3000.com/articles/article_1412.asp    --- 每個人都是一本書

引言: 這樣轉出來是16進位可以轉成10進位嗎 如果要再將16進位 or 10 進位 轉成字元要怎麼做..

大部份上面兩位大大都答好了 只稍作補充 轉十進位請 : 將 Format('%X'... 改成 Format('%d'....) 或 將 IntToHex 改成 IntToStr 將16進位或10進位軋成字元 : 1. 若原始資料是數值使用 Chr(Value); 2. 若原始資料是字串他了的(像上例的) 就使用 Chr(StrToInt(Value));