字转换成字符串
本实例是用InttoStr()函数将指定的数字转换成字符串。
程序代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
s:String;
begin
i:=1234567;
s:=IntToStr(i);
ShowMessage(s);
end;
符串全部大写
本实例是通过字符的ASCII码，将小写字母转换成大写的。运行结果如图5.5所示。
图5.5 将字符串全部大写
程序代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
n,i,ls : Integer;
s,su : String;
s1 : Char;
begin
su := '';
s := Trim(Edit1.Text);
n := Length(s);
for i:=1 to n do
begin
s1 := char(Ord(s[i])-(Ord('a')-Ord('A')));
su :=su+s1;
end;
Edit2.Text := su;
end;
符串全部小写
本实例是通过字符的ASCII码，将大写字母转换成小写。运行结果如图5.6所示。
图5.6 将字符串全部小写
| 
站点公告