zoukankan      html  css  js  c++  java
  • 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;




  • 相关阅读:
    vue与后台交互之post用法
    django框架两个使用模板实例
    917,仅仅反转字母(简单)
    836,矩形重叠 (简单)
    860,柠檬水找零(简单)
    使用类创建对象后找不到的问题
    8_19 数据库
    8_16 MySQL数据库一
    Mysql的安装与配置
    文件操作中,使用递归退出不了。
  • 原文地址:https://www.cnblogs.com/xe2011/p/3875953.html
Copyright © 2011-2022 走看看