本文整理自网络,侵删。
{ 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 windows 编程[2] - 学习窗体生成的过程二
更多相关阅读请进入《Delphi》频道 >>