Delphi調用WinAPI 字符及字符串函數(2)(2)

{返回值}

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]); {abcdEFG, 4}
end;

{對字符串}

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