----------请问如何获得一个字符串内各个字符的ASCII值---------(50分)

比如'ABCDEfg',将每个字母的ASCII值赋值给文本框或变量。
要求：字符串的内容是可变的。

function GetAscii(const S: string): string;
var
I: Integer;
begin
for I := 1 to Length(S) do
Result := Result + IntToStr(Ord(S)) + ';';
end;

同意楼上老兄！

s:='abcdef';
s[1]-->'a';
s[2]-->'b';
...
ord:字符-->ASCII值
chr:ASCII值-->字符

BTW:你这个问题早该结束了！

其实还有一中简单做法就是
Byte(s[1])

请看我这个小例子：））））））：）

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
s1:Array[0..20] of char;
s2:String;
//cchar;
begin
i:=length(trim(Edit1.text));
for j:=1 to i do
begin
s1[j]:=trim(Edit1.text)[j];
s2:=s2+intToStr(ord(s1[j]));
end;
edit2.text:=s2;
end;

end.

更正：下标从0到j-1。 ：）

多人接受答案了。