摘要：
某一字符是否在字符串中 本实例是用AnsiMidstr()函数获取指定字符串中的单个字符，也可以获取指定长度的子字符串。运行结果如图5.10所示。 图5.10 判断某一字符是否在字符串中 主要代码如下： procedure TForm1.Button1Click(Sender: TObjec... 阅读全文
posted @ 2011-09-17 13:43 清风轩 阅读(1407) 评论(0) 推荐(0) 编辑
2011年9月17日
摘要：
字符串转换成16进制字符串 实例Function StrToHexStr(const S:string):string;//字符串转换成16进制字符串var I:Integer;begin for I:=1 to Length(S) do begin if I=1 then Result:=Int... 阅读全文
posted @ 2011-09-17 12:03 清风轩 阅读(240) 评论(0) 推荐(0) 编辑
摘要：
字符串转换成16进制字符串 function StrToHexStr(const S:string):string;var I:Integer;begin for I:=1 to Length(S) do begin if I=1 then Result:=IntToHex(Ord(S[1... 阅读全文
posted @ 2011-09-17 01:46 清风轩 阅读(283) 评论(0) 推荐(0) 编辑