是否可以將一組數字轉換為其 ASCII 字符值？

Question

我可以將字符串轉換為中間有空格的 Ascii 值。

示例：“我喜歡胡蘿卜”致：73 32 108 105...

但我試圖找出一種方法來獲取這些數字並將它們轉換回它們的 ascii 字符。

我正在使用最新版本的 Delphi (embarcadero) 並且是編碼新手，所以請幫助我:)

Answer 1

這是代碼：

var
    S1 : String;
    S2 : String;
    A  : TStringDynArray;   // Add System.Types in uses
    N  : String;
    C  : Char;
begin
    // 'I like carrots' in ascii code separated by a space
    S1 := '73 32 108 105 107 101 32 99 97 114 114 111 116 115';
    A  := SplitString(S1, ' ');   // Add System.StrUtils in uses
    S2 := '';
    for N in A do
        S2 := S2 + Char(StrToInt(N));
    ShowMessage(S2);
end;

我不知道完整的問題，但您可以添加代碼來檢查有效的輸入字符串。

Answer 2

您可以在每個字符中使用 Ord 函數。 Chr 函數返回指定 ASCII 值的字符。

例子

var
  s: string;
  c: char;

s:='I like carrots';
for c in s do
begin
   Writeln(ord(c));
end;

Answer 3

我不太了解delphi，但看看這個鏈接： http : //www.delphibasics.co.uk/Article.asp? Name=Text

在分配到和從字符變量部分中，它演示了一個類似這樣的函數： fromNum := Chr(65); // Assign using a function fromNum := Chr(65); // Assign using a function 。

如果這不起作用，您可以考慮構建一個 int->char 的大型映射。 它的開頭是在上面的網站上也靠近頂部。