Delphi中用什么命令来提取一个字母的ASCII码？

delphi中怎么取出字符串中单个char的ascii码值？~

获取ASCII值使用函数ord，获取字符串里面的某个字符用数组的语法，例如你的定义可以使用下面的语句：
writeln(ord(s[1]));

java中如何将一个字符转换为ascii码：
方法1：
char c = 'a '；
byte b =(byte)c；

方法2：
直接将这个字符转化为int型就可以得到ascii码值
char c = 'a '；
int b = c； //字符的ascii码值

同理将一个ascii码转换为相应的字符：
例如：字符a
int d = 97;
char e = (char)d;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
i:Integer;
myOrd:String;
myValue:Integer;
begin
myOrd:='abcd';
For I:=1 To Length(myOrd) Do
Begin
myValue:=ord(myOrd[I]);
Showmessage(InttoStr(myValue));
End;
end;

end.

取单个字母的ascii吗，可以用函数ord

---

仁寿县19228373829： Delphi中用什么命令来提取一个字母的ASCII码? - ？
茶迫茵胆： unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }...

仁寿县19228373829： Delphi中怎样取一个字符串中的一个字符. - ？
茶迫茵胆： var a : string; b : char; i : integerbegin for i:=1 to Length(a) do begin b:=a[i]; ... end;end

仁寿县19228373829： delphi 怎么提取Edit.text中的一个字符 - ？
茶迫茵胆： pos('字符',字符串) //在字符串中查找字符 返回值为整形 再配合copy函数 就能取出了

仁寿县19228373829： delphi里面怎么截取字符串? - ？
茶迫茵胆： delphi]delete(str,pos('''''',str),2); delete(str,pos('''''',str),10000); showmessage(str);

仁寿县19228373829： delphi 用哪个函数可以丛一个字符串中 右取 一个字符 )(象vb的 ri - ？
茶迫茵胆： 呵呵,我的机子上有这么一个函数.uses DUtils;// Left N characterfunction LeftStr(const S: String; n: Integer): String;// Right N characterfunction RightStr(const S: String; n: Integer): String;// Get a SubStrfunction SubStr(const S: String; Start, Len: Integer): String;

仁寿县19228373829： 在的DELPHI5中如何取文体框中的某个或任意一个字符.请各位高手帮助,多谢!!？
茶迫茵胆： end;var str:string; ch:char;const i=某位字符begin str:=edit1.text; ch:=str[i];

仁寿县19228373829： 在DELPHI5中如何取文体框中的某个或任意一个字符.请各位高手指点,多谢!!？
茶迫茵胆： 取得第n个字符if length(s)<n then s:= edit1.text ;getchar:= '' else getchar := s[n];

仁寿县19228373829： 请问在Delphi编程中,如何通过函数取出一串字符中的最后一个字符? - ？
茶迫茵胆： 用RightStr函数吧功能说明:返回字符串右边指定个数的新字符(串).该函数有两个参数.第一个参数为完整的字符串,第二个参数为指定个数.参考实例:varS, A: String;beginS := ''MSN Messenger'';A := RightStr(S, 3); // 从最右边开始,获取右边的三个字符.因此A变量则等于ger.end;

仁寿县19228373829： 请教:Delphi7采用ADO与excel连接成功,如何读取某个单元格的内容,应该用什么指令?求指点,谢谢! - ？
茶迫茵胆： 既然是用ADO连接,就是把EXCEL的SHEET看成数据表,EXCEL的列就是数据表的字段.单元格的计算值就是记录字段的内容.所以已经无法取出单元格的原始内容,只能取出计算值.你可以把数据集结果先存放到一个2维数组中 A[1,1]的值就等于$A$1的计算结果.如果要想取单元格的内容,直接用OLE获取

仁寿县19228373829： delphi中怎么取出字符串中单个char的ascii码值? - ？
茶迫茵胆： 获取ASCII值使用函数ord,获取字符串里面的某个字符用数组的语法,例如你的定义可以使用下面的语句:writeln(ord(s[1]));