本文整理自网络,侵删。
{文件名变小写}
function LowerCase(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if (Ch >= 'A') and (Ch <= 'Z') then Inc(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;
相关阅读 >>
Delphi android windows ios通用获取程序版本
Delphi windows 编程[8] - wm_paint 消息
winapi 字符及字符串函数(11): lstrcpyn - 复制字符串, 同时指定要复制的长度
更多相关阅读请进入《Delphi》频道 >>