C cysnowboy Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-29 #1 代码: var ss:integer;<br>begin<br> ss:=Ord(Copy(Edit1.Text, 1, 1) <br>end; <br><br>[red]怎么样才能把string转化成char?[/red]
代码: var ss:integer;<br>begin<br> ss:=Ord(Copy(Edit1.Text, 1, 1) <br>end; <br><br>[red]怎么样才能把string转化成char?[/red]
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-29 #2 var ss:integer;<br> s:string;<br>begin<br> s:=Edit1.Text;<br> ss:=Ord(s[1]);<br>end;<br>
var ss:integer;<br> s:string;<br>begin<br> s:=Edit1.Text;<br> ss:=Ord(s[1]);<br>end;<br>
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-29 #3 怎么样才能把string转化成char?<br><br>char(string)
B boyface Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-29 #4 ss:=Ord(Copy(Edit1.Text, 1, 1)[1]);[]