2015年4月12日
CopyMemory Move使用笔记
摘要： 今天群里有人问函数使用问题，我就自己测试一下，顺便学习一下。uses math;procedure TForm2.Button1Click(Sender: TObject);type TTArrayByte= array of Byte;var FSource: PAnsiChar; FArr... 阅读全文
posted @ 2015-04-12 18:40 云水浮萍 阅读(664) 评论(0) 推荐(0) 编辑
System.Length 函数
摘要： function _PCharLen(P: _PAnsiChr): Longint;{$IFNDEF LEGACY_PCHARLEN}begin Result := 0; if P nil then while P[Result] #0 do Inc(Result);end;喜欢理由：简洁如果是... 阅读全文
posted @ 2015-04-12 16:31 云水浮萍 阅读(267) 评论(0) 推荐(0) 编辑