delphi 简单的删除字符串尾部数字的代码 方式一: function FilterShowName(const sName: String): String; var I: Integer; begin Result := sName; if Result <> '' then begin do begin ', '-'] then Delete(Result, I, ) else Break; end; end; end; 方式二(未测试): function GetChinese(S…
var pMes:^String; begin New(pMes); pMes^:=msg; PostMessage(Application.handle, WM_Custom, 0, Integer(pMes)); end; 以下是接收 procedure CustomMessages(var Msg: TMsg; var Handled: Boolean); var msgStr: String; pMes:^String; begin if Msg.hwnd = Application.h…
//第一题是猜数字的游戏.//题目:随即产生一个3位的正整数,让你进行猜数字,//如果猜小了,输出:"猜小了,请继续".//如果猜大了,输出:"猜大了,请继续".//如果猜对了.输出:"恭喜你,猜对了".//不过最多只能猜10次,如果猜了10次还没有猜对,就退出程序,输出:"Bye Bye". /*总结:此题最主要的地方就是产生随机数的方法:rand() % N + A, A为起始位,N为数字的总数.例如:随机生成0~10的数…
1.获取小数点位数方法 a. 使用 js 中 subsrting,indexOf,parseFloat三个函数,代码如下: var s = "22.127456" ;//s 为 字符串 ,substring.indexOf 只能对字符串使用 var point = s.indexOf(".")+3;//获取小数点在字符串中的位置,并向后加3作为最后字符串结束位 var str = s.substring(0,point) ;//获取0到point之间的字符串 var…