Delphi 調用 WinAPI：CharLowerBuff 指定長度轉小寫

緩衝區部分/全部轉小寫：CharLowerBuff 返回轉換字符數

CharLowerBuff(buffer, length) 將緩衝區前 length 個字符轉為小寫，返回實際轉換字符數。用法與 CharUpperBuff 完全對稱。

四種使用場景

procedure TForm1.Button1Click(Sender: TObject);  {全部轉換}
var buf: array[0..6] of Char;
begin buf := 'ABCDEFG'; CharLowerBuff(buf, Length(buf)); ShowMessage(buf); end; {abcdefg}

procedure TForm1.Button2Click(Sender: TObject);  {前 3 個}
var buf: array[0..6] of Char;
begin buf := 'ABCDEFG'; CharLowerBuff(buf, 3); ShowMessage(buf); end; {abcDEFG}

procedure TForm1.Button3Click(Sender: TObject);  {獲取返回值}
var buf: array[0..6] of Char; num: Integer;
begin buf := 'ABCDEFG'; num := CharLowerBuff(buf, 4); ShowMessageFmt('%s, %d', [string(buf), num]); end; {abcdEFG, 4}

procedure TForm1.Button4Click(Sender: TObject);  {AnsiString 轉換}
var str: string;
begin str := 'ABCDEFG'; CharLowerBuff(@str[1], Length(str)); ShowMessage(str); end; {abcdefg}

注意： 同 CharUpperBuff，直接修改原緩衝區，@str[1] 取 Delphi 字符串首字符地址。