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 在tunimemo中复制和粘贴选定的文本

Delphi dateutils.ispm - 判断时间是否是下午

Delphi 使窗口透明，并透过透明的窗口操作下面的窗口

Delphi dectobinstr

Delphi编写dll(以及静态和动态方式调用)

winapi 字符及字符串函数(5): ischaralpha - 是否是个字母

Delphi计算两个时间差

Delphi学习之资源文件dll的制作及使用

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

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