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

Upcase 将edit1中的每个字符串改为首字母大写的更多相关文章

  1. python title() upper() lower() 以首字母大写的方式显示每个单词/将字符串改为全部大写或全部小写

    以首字母大写的方式显示每个单词 [root@chenbj python]# cat name.py #!/usr/bin/env python # _*_ coding:utf-8 _*_ name ...

  2. 小tips:JS/CSS实现字符串单词首字母大写

    css实现: text-transform:capitalize; JS代码一: String.prototype.firstUpperCase = function(){ return this.r ...

  3. 如何将js字符串变成首字母大写其余小写

    有时候会接收到一些大小写不规则的字符串,如"JAMES"."alice"."Amy"等,如何将他们统一的变成首字母大写其余小写的形式呢? 思 ...

  4. 120、Java中String类之实现首字母大写

    01.代码如下: package TIANPAN; /** * 此处为文档注释 * * @author 田攀 微信382477247 */ public class TestDemo { public ...

  5. 【java】将字符串的首字母大写

    工具方法: public static void main(String[] args) { System.out.println(upperCaseFirst("barer")) ...

  6. c# 字符串的首字母大写转换 方法

    方法1: s.Substring(0,1).ToUpper()+s.Substring(1);  方法2: s = System.Threading.Thread.CurrentThread.Curr ...

  7. Js中常用的字符串,数组,函数扩展

    由于最近辞职在家,自己的时间相对多一点.所以就根据prototytpeJS的API,结合自己正在看的司徒大神的<javascript框架设计>,整理了下Js中常用一些字符串,数组,函数扩展 ...

  8. fastjson将bean转成字符串时首字母变小写问题

    一个项目需求要求返回值为JSON格式,且大多数字段是首字母大写,还有些是类似N_TX这样的格式,在输出这样的结果时遇到了问题,由于时间紧,就直接拷贝需要的结果字段建立JavaBean类,本以为最后直接 ...

  9. [转]:Delphi中Format的字符串格式化使用说明

    一.Format函数的用法 Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用: 首先看它的声明: function Forma ...

随机推荐

  1. HTML5学习(十一)---服务器发送事件

    参考教程:http://www.w3school.com.cn/html5/html_5_serversentevents.asp HTML5 服务器发送事件(server-sent event)允许 ...

  2. Java [leetcode 33]Search in Rotated Sorted Array

    题目描述: Suppose a sorted array is rotated at some pivot unknown to you beforehand. (i.e., 0 1 2 4 5 6 ...

  3. POI 操作(新接口)

    POI 生成XLS实例 转载至:http://www.4ucode.com/Study/Topic/697242 ackage test; import java.io.FileOutputStrea ...

  4. 我的WCF之旅(3):在WCF中实现双工通信

    双工(Duplex)模式的消息交换方式体现在消息交换过程中,参与的双方均可以向对方发送消息.基于双工MEP消息交换可以看成是多个基本模式下(比如请求-回复模式和单项模式)消息交换的组合.双工MEP又具 ...

  5. LINQ之路系列

    Life a Poem http://www.cnblogs.com/lifepoem/archive/2011/11/22/2258830.html

  6. HUST 1017 Exact cover dance links

    学习:请看 www.cnblogs.com/jh818012/p/3252154.html 模板题,上代码 #include<cstdio> #include<cstring> ...

  7. fedora下的dropbox

  8. #pragma warning (default : n)

    参考链接:http://www.cnblogs.com/JCSU/articles/1996483.html 在VC2013中编译以下win32 C++ 控制台程序,会产生2个告警warnings # ...

  9. position属性

    所有主流浏览器支持position属性: 任何版本的ie浏览器都不支持属性值“inherit”. position属性规定元素的定位类型,任何元素都可以定位,不过绝对定位或固定元素会生成一个块级框,不 ...

  10. Kotlin 学习

    http://kotlinlang.cn/ 资料: https://segmentfault.com/a/1190000004494727 http://blog.csdn.net/u01413448 ...