急! 很急! 非常急! 菜鸟问题! 关于 Ascii 码! 有答案马上结贴!

Question

请问各位大虾，问题如下：有一个 Edit1，Edit2 要求在 Edit1 输入字母时,Edit2 输出它的 Ascii 码(若所输出的 Ascii 码的位数不足3位的，前面用数字"零"来占位)？

Answer 1

var c:Char;
begin
  c:= edit1.text[1];
  edit2.text := Format('%.3d',[ord(c)]);
end;

Answer 2

那么请问如何把 Ascii 码变为 字母 或 数字 呢？还有，如果再添加一个 Edit3，专门用来记录我一共案的字母 或 数字的 Ascii 码例如：输入 "a","A","a"，那么 Edit3 的内容就应该为 "097056097"

Answer 3

Ascii 码变为 字母 或 数字：CHR（N）
CHR（97）＝‘a'