請教各位前輩 字元如何轉Ansi碼?? 如吧 G ==轉為>> 71 Ansi碼轉為字元方法如下 ShowMessage(char(71)); 但如何把字元轉為Ansi碼 ?? 都沒找到,請前輩指導 萬分感謝.....謝謝.....謝謝

引言: 請教各位前輩 字元如何轉Ansi碼?? 如吧 G ==轉為>> 71 Ansi碼轉為字元方法如下 ShowMessage(char(71)); 但如何把字元轉為Ansi碼 ??

用ord

 
var ch :char;
begin
  Showmessage(InttoStr(Ord(ch)));
end;    

混心雜欲 棄修身~唉

用ord呢就是用的delphi的函数 另外一种就是用强制类型转换 showmessage(inttostr(Integer('A)))); Vsun

------
Vsun