怎么得到字符的ascii值？还有一些其它的小问题，高分相送，谢谢。(100分)

string s1
1.怎么得到s1的ascii值？谢谢
integer l1
2.怎么得到l1 / 99 的模？谢谢

获得ASCII的得：ord(s1)
获得模的得：11 mod 99

好象不对啊，ord()后面不能接s1?

你要把s1放到一个数组中，每个字符是一位，
一个一个地进入ord(),

不好意思，再问一个笨问题，怎么把string放到array里面？

ord(sl[0]),ord([1]).......

字符串就是Char的集合。
建议找本Pascal书看看，了解一些基本知识。

s: string;

s := 'abc';
s[1]则为第一个char

这个问题老土这里有源码啦。unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Memo1: TMemo;
Edit2: TEdit;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation



{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.add(Chr(strToInt(Edit1.text)));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Tempchar;
Name:string;
c:char;
i,Long,Pass:integer;
begin
Pass:=0;
Name:=edit1.Text;
long:=length(Name);
for i:=1 to Long do
begin
temp:=pchar(copy(Name,i,1));
c:=temp^;
Pass:=ord(c)
//将用户名每个字符转换为ASCII码。
memo1.lines.Append(IntToStr(Pass));
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
S: string;
begin
S :=Edit2.Text;
AppendStr(S,memo1.Text);
Edit2.Text := S;
Edit1.Clear;
Memo1.Clear;
end;


end.

多人接受答案了。