请问大虾们，如何把edit中的字符变换成ASCII码数字显示出来呢？谢谢大家帮忙，，，，，很急！！！！！！ (100分)

阿

阿登学编程

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #1

请问大虾们，如何把edit中的字符变换成ASCII码数字显示出来呢？谢谢大家帮忙，，，，，很急！！！！！！

 

Y

YoungSun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #2

procedure convertedt()
var
i : integer;
s : string;
begin
s := edit1.text;
edit1.text := '';
for i := 1 to Length(s)do
begin
edit1.text := edit1.text + inttostr(ord(s)) + ',';
end;
end;

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #3

IntToStr(Ord(eidt1.text[1]))

 

P

pt_email

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #4

var
i:integer;
s:String;
begin

s:=edit1.text;
for i:=1 to length(edit1.text)do
begin
edit2.text:=edit2.text+intToStr(ord(s));
end;

 

阿

阿登学编程

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #5

谢过几位了！