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所示。
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/
-
暫時沒有公告
Delphi開發經驗技巧寶典：字符中的轉換[1]
發布: 2008-5-21 13:21 | 作者: 不詳 | 來源: csai | 查看: 83次 | 進入軟件測試論壇討論
for i:=1 to n do
begin
s1 := char(Ord(s[i])-(Ord('a')-Ord('A')));
su :=su+s1;
end;
Edit2.Text := su;
end;
關于領測軟件測試網 | 領測軟件測試網合作伙伴 | 廣告服務 | 投稿指南 | 聯系我們 | 網站地圖 | 友情鏈接
版權所有(C) 2003－2010 TestAge（領測軟件測試網）|領測國際科技（北京）有限公司|軟件測試工程師培訓網 All Rights Reserved
北京市海淀區中關村南大街9號北京理工科技大廈1402室 京ICP備10010545號-5
技術支持和業務聯系：info@testage.com.cn 電話：010-51297073
版權所有(C) 2003－2010 TestAge（領測軟件測試網）|領測國際科技（北京）有限公司|軟件測試工程師培訓網 All Rights Reserved
北京市海淀區中關村南大街9號北京理工科技大廈1402室 京ICP備10010545號-5
技術支持和業務聯系：info@testage.com.cn 電話：010-51297073