Upcase 将edit1中的每个字符串改为首字母大写

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

来自为知笔记(Wiz)