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

来源：百度知道 编辑：UC知道 时间：2024/07/04 03:36:21
我现在有一个字符串，字符串中有若干个字母，我现在要提取这些字母的ASCII码，用什么命令，谢谢。
我需要的是要提取这些字符串中每一个字母的ASCII码，麻烦写得具体些，谢谢。

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