Z zlmark Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-14 #1 我用copy函数提取每个字符,然后把它转换成pwidechar,使用ord函数,可是系统总是提醒 类型不相容,怎么回事?
H honghs Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-14 #2 你直接 for i:=1 to length(edit1.text)do begin ord(edit1.text)不就行了吗,还用得着转成pwidechar呢? end;
G gwbasic Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-14 #4 var s: String; str : String; Index:integer; Ascii:integer; begin //....... /....... s:=copy(str,index,1); Ascii := ord(s[1]); end;
var s: String; str : String; Index:integer; Ascii:integer; begin //....... /....... s:=copy(str,index,1); Ascii := ord(s[1]); end;