如何判断一个STRING变量里的第一个字符是否大小写?(20分)

如何判断一个STRING变量里的第一个字符是否大小写?
有一个字符串,想判断其第一个字符是否大小写,应该怎样?

转换成整型值(即ASCII码)进行判断。

判断第一个字符的ASCII码

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:='Abc';
if s[1] in ['A'..'Z'] then
ShowMessage('大写打头')
else ShowMessage('小写打头或者非字母');
{还有一种写法
if 'Abc'[1] in ['A'..'Z'] then
ShowMessage('大写打头')
else ShowMessage('小写打头或者非字母');
{还有一种写法
}
end;

end.

先取第一个字符再判断其ASCII码是否在A~Z之间就OK了！！！
取第一个字符用Copy(Str,0,1);这里的Str是你要判断的字符串。这个函数返回的是String
类型的结果。
再用Ord()判断其ASCII码是否>=65 and <=90。

多人接受答案了。