B babalamari Unregistered / Unconfirmed GUEST, unregistred user! 2010-03-29 #2 便如说Memo1.text里输入一段AscII码Button1_ClickMemo2.text=转换完的10进制数
B bahamut8348 Unregistered / Unconfirmed GUEST, unregistred user! 2010-03-30 #3 直接INTTOSTR不就完了。。。还怎么转?ASCII码本来就是数值型,所谓N进制只是表示方式不同而已,其他的没什么区别
L liuls Unregistered / Unconfirmed GUEST, unregistred user! 2010-03-30 #4 var Str: string; I: Integer;begin Str := Memo1.Text; for I := 1 to Length(Str) do Memo2.Text := Memo2.Text + IntToStr(Ord(Str));end;
var Str: string; I: Integer;begin Str := Memo1.Text; for I := 1 to Length(Str) do Memo2.Text := Memo2.Text + IntToStr(Ord(Str));end;