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 topendialog设置多个过滤条件

Delphi 一句话获取文件的最新修改时间

Delphi 在窗口作图的源代码

Delphi使用spcomm没办法触发receivedata

Delphi fmx 安卓跳转到支付宝付款页面

Delphi andorid应用程序检查wifi有效还是无效

Delphi xe7 新的并行库 system.threading

Delphi zlib 流压缩解压

Delphi getmodulefilename函数的用法(可以获取项目的路径，桌面的路径，我的文档的路径)

indy tidtcpclient 在网络掉线时的处理方法

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

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