请问大家DELPHI下如何STRING　转成　CHAR　类型？？？(没分的你们谁进来）(0分)

Y

yjwnnit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #1

var
ch1:char;
asc:integer;
begin
ch1:=copy(edit1.text,1,1); // 类型不对！出错　
..
..
有什么好办法吗？　我就想要STRING中的一个字符！！　从而得到它的ASCII码

　　asc1:=ord(ch1) ;

 

D

dirk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #2

ch1:=copy(edit1.text,1,1)[1];

分有什么用？

 

G

GipsyCN

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #3

ch1:=edit1.text[1]

 

Y

yjwnnit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #4

谢谢你dirk,　　这对我很有用！！！　非常有用！　再次谢谢！！　下次有机会给你点分[][]

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #5

function StrPCopy(Dest: PChar; const Source: string): PChar;