delphi 字母大小写转换

本文整理自网络，侵删。

 
{ Author Arno Garrels - Feel free to optimize!                }
{ It's anyway faster than the RTL routine.                    }
function LowerCaseAnsi(const S: AnsiString): AnsiString;
var
    Ch : AnsiChar;
    L, I  : Integer;
    Source, Dest: PAnsiChar;
begin
    L := Length(S);
    if L = 0  then
        Result := ''
    else begin
        SetLength(Result, L);
        Source := Pointer(S);
        Dest := Pointer(Result);
        for I := 1 to L do begin
            Ch := Source^;
            if Ch in ['A'..'Z'] then Inc(Ch, 32);
            Dest^ := Ch;
            Inc(Source);
            Inc(Dest);
        end;
    end;
end;

{ Author Arno Garrels - Feel free to optimize!                }
{ It's anyway faster than the RTL routine.                    }
function UpperCaseAnsi(const S: AnsiString): AnsiString;
var
    Ch : AnsiChar;
    L, I : Integer;
    Source, Dest: PAnsiChar;
begin
    L := Length(S);
    if L = 0  then
        Result := ''
    else begin
        SetLength(Result, L);
        Source := Pointer(S);
        Dest := Pointer(Result);
        for I := 1 to L do begin
            Ch := Source^;
            if Ch in ['a'..'z'] then Dec(Ch, 32);
            Dest^ := Ch;
            Inc(Source);
            Inc(Dest);
        end;
    end;
end;

 

相关阅读 >>

一些最基本的函数 单元

Delphi enumwindows回调函数获取qq2009窗体句柄

Delphi xe2获取文件的 md5、crc、sha-1、sha-256、sha-512

Delphi判断mssql数据库中表格是否存在？ 如何批量创建表格？

Delphi idhttp中设置非标准头信息和读写cookie

Delphi unigui中cookies使用中文汉字的方法

Delphi下程序内存泄露报告

Delphi datetimepicker控件日期格式

Delphi idhashmessagedigest, idhash, idglobal md5

Delphi 怎么将一个文件流转换成字符串？

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 字母大小写转换