Delphi开发经验技巧宝典:字符中的转换[2]
关键字:delphi
主要代码如下:
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;
原文转自:http://www.ltesting.net