Delphi开发经验技巧宝典：字符中的转换[1]

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥  购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

字转换成字符串

本实例是用InttoStr()函数将指定的数字转换成字符串

程序代码如下

procedure TFormButtonClick(Sender: TObject);

var

i:Integer;

s:String;

begin

i:=;

s:=IntToStr(i);

ShowMessage(s);

end;

符串全部大写

本实例是通过字符的ASCII码将小写字母转换成大写的运行结果如图所示

http://developcsaicn/delphi/images/jpg>

图 将字符串全部大写

程序代码如下

procedure TFormButtonClick(Sender: TObject);

var

nils : Integer;

ssu : String;

s : Char;

begin

su := ;

s := Trim(EditText);

n := Length(s);

for i:= to n do

begin

s := char(Ord(s[i])(Ord(a)Ord(A)));

su :=su+s;

end;

EditText := su;

end;

符串全部小写

本实例是通过字符的ASCII码将大写字母转换成小写运行结果如图所示

http://developcsaicn/delphi/images/jpg>

图 将字符串全部小写

right>[] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>]