//将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;