![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
算法
紫松Win
既然选择了远方,便只顾风雨兼程!想了解更多知识:http://weibo.com/u/2985316267
展开
-
Delphi宽字符批量去除#0方法
function DelCRLF(src: String): String; var n,M: Integer; begin SetLength(Result, Length(src)); n := 0; for m := 1 to Length(src) do if (src[M]= #0) then continue else begin Inc(n); Result[n] := src[M]; end...原创 2021-05-13 13:52:27 · 621 阅读 · 0 评论 -
delphi中的unicode转换
花47星币买的,没有用上,分享到这里,供大家参考!delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因终于找到了转换函数function AnsiToUnicode(s:string):WideString;varlpWideChar:PWideChar;len:Integer;beginlen := ( Length(s) + 1 ) * 2;GetMem(lpWideChar, len);ZeroMemory(lpWideChar, len原创 2021-05-13 11:46:19 · 964 阅读 · 0 评论 -
Delphi 数学函数:常用的几个数学函数(Power、Abs、Int、Trunc、Round、Frac、sqr、sqrt)
Delphi 常用的几个数学函数1Power函数,求次方定义:functionPower(X,Y): (Same type as parameter);说明:X可以是整型,也可以是实型;返回值实型例子:var i:integer;begin i := Power(2,3); { 8 } // 2的3次方end.2Abs(x) 函数 ,求绝对值。定义:function Abs(X): (Same type as parameter);说明:X可以是整型,也可以.原创 2020-08-13 15:05:11 · 3639 阅读 · 0 评论