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

发表于:2008-05-21来源:作者:点击数: 标签:DELPHI字符宝典Delphi技巧
关键字: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