Delphi编程--字符处理

======================================================

注：本文源代码点此下载

======================================================

定位
function ansilastchar(const s: string): pchar;返回ansi字符串的最后一个字符,支持多字节字符
function ansistrlastchar(p: pchar): pchar;返回以空字符串结尾的ansi字符串的最后一个字符(不包括空字符),在多字节字符中,可能不等于最后一个字节
function bytetocharindex(const s: string; index: integer): integer;返回包含index指定字节的字符位置
function chartobyteindex(const s: string; index: integer): integer;返回index指定字符的字节位置
function nextcharindex(const s: string; index: integer): integer;返回index指定字符的下一个字符起始字节位置
function strnextchar(const str: pchar): pchar;返回指定字符串的下一个字符
计数
function bytetocharlen(const s: string; maxlen: integer): integer;返回包含maxlen指定字节数的字符的个数
function charlength(const s: string; index: integer): integer;返回字符串的字节长度
function chartobytelen(const s: string; maxlen: integer): integer;返回maxlen指定的字符长度的串的字节长度
function strcharlength(const str: pchar): integer;返回字符串中第一个字符的字节长度
转换
function ansilowercasefilename(const s: string): string;将ansi字符串表示的文件名转换为小写
function ansiuppercasefilename(const s: string): string;将ansi字符串表示的文件名转换为大写
判断
function ansicomparefilename(const s1, s2: string): integer;比较两个ansi字符文件名称大小,不识别大小写
function bytetype(const s: string; index: integer): tmbcsbytetype;返回index所指定字节是单字节符还是双字节字符中第一字节或第二字节
function samefilename(const s1, s2: string): boolean;判断文件名是否相同
function strbytetype(str: pchar; index: cardinal): tmbcsbytetype;判断index指定字节是单字节字符还是双字节字符中第一字节或第二字节

======================================================

在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定
这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/