delphi 文件名变小写的函数

本文整理自网络，侵删。

 {文件名变小写}
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 查看所有的串口设备

Delphi程序带参数运行

Delphi 实现放大效果

Delphi idhttp友好错误信息的捕获

Delphi 获取计算机已运行时间

Delphi systemparametersinfo 用法

Delphi实时监视应用程序内存使用量

Delphi 将dbgrid的数据导出到excel文件保存

Delphi idhttp1下载文件防止假死

Delphi rest服务器返回图像并显示在浏览器中

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

转载请注明出处：木庄网络博客 » delphi 文件名变小写的函数