J Junk Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-08 #1 我想把下面字符串转换为Integer,该如何转。 stUSER:='ABC'转换成656667，既其的ASCII码。 谢谢
F Fudei Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-08 #2 function strtoasc(val: string):integer; var l: integer; s: string; begin for l:=1 to legend(val) do s:=s+inttostr(ord(val[l])); result:=strtoint(s); end;
function strtoasc(val: string):integer; var l: integer; s: string; begin for l:=1 to legend(val) do s:=s+inttostr(ord(val[l])); result:=strtoint(s); end;
C cAkk Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-08 #3 你是自己懒的写代码还是真不会? for i:=1 to length(stuser) do result:=result+inttostr(ord(stuser));
C cAkk Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-08 #9 习习,我正在这儿等大家回答我的问题,就是 "sql 7.0导数据"和"设置opendialog高度"的两个问题.... (气死我了,老是没人回答)
J Junk Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-08 #10 是真的不会。原来取其中的一个字符可以STuser(i),我却在用Copy取字符。 两位就把这80分分了。
F Fudei Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-08 #11 wjiachun：我是说cAkk的技术好， 当他是老师， 可不是说年龄。 cAkk: 每二个问题我正想。
