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)