Delphi调用WinAPI 字符及字符串函数（7）

Delphi调用WinAPI 字符及字符串函数（7）2012-04-08 cnblogs 万一IsCharLower - 是否是个小写字母

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class（TForm）
  Button1: TButton;
  Button2: TButton;
  Button3: TButton;
  Button4: TButton;
  Button5: TButton;
  procedure Button1Click（Sender: TObject）;
  procedure Button2Click（Sender: TObject）;
  procedure Button3Click（Sender: TObject）;
  procedure Button4Click（Sender: TObject）;
  procedure Button5Click（Sender: TObject）;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click（Sender: TObject）;

var
 c: Char;
 b: BOOL;
begin
 c := #65; {A}
 b := IsCharLower（c）;
 ShowMessage（BoolToStr（b, True））; {False}
end;

procedure TForm1.Button2Click（Sender: TObject）;

var
 c: Char;
 b: BOOL;
begin
 c := #97; {a}
 b := IsCharLower（c）;
 ShowMessage（BoolToStr（b, True））; {True}
end;