EDIT内有三个字，如何把他们分开，以取得各个字的内码(100分)

M

mylovegirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #1

EDIT内有三个字，如何把他们分开，以取得各个字的内码

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #2

如果是中文，赋给一个WideString变量，然后一个个取Ord就行了：
var
S: WideString;
begin
S := Edit1.Text;
Ord(S[1]) Ord(S[2]) Ord(S[3])

 

M

mylovegirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #3

如果遇到空格怎么办

 

C

catbrother

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #4

空格＝32