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;