//将edit1中的每个字符串改为首字母大写
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
with Sender as Tedit do
if (text = '') or (text[selstart] =
' ') or ( sellength
= length( text ) )then
if Key in ['a'..'z'] then Key := Upcase(Key);
end;
如何将字符串转换成首字母大写
{判断字符是否是大写字符}
function IsUpper(ch: char): boolean;
begin
Result := ch in ['A'..'Z'];
end;
{判断字符是否是小写字符}
function IsLower(ch: char): boolean;
begin
Result := ch in ['a'..'z'];
end;
{转换为大写字符}
function ToUpper(ch: char): char;
begin
Result := chr(ord(ch) and $DF);
end;
{转换为小写字符}
function ToLower(ch: char): char;
begin
Result := chr(ord(ch) or $20);
end;
{ Capitalizes First Letter Of Every Word In S 单语首字母大写 }
function Proper(const s: string): string;
var
i: Integer;
CapitalizeNextLetter: Boolean;
begin
Result := LowerCase(s);
CapitalizeNextLetter := True;
for i := 1 to Length(Result) do
begin
if CapitalizeNextLetter and IsLower(Result[i]) then
Result[i] := toUpper(Result[i]);
CapitalizeNextLetter := Result[i] = ' ';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=Proper(Memo1.Text);
end;
