2007 年 12月 11 日随笔档案 - 万一

2007年12月11日

摘要： //分割字符串 ExtractStrings var s: String; List: TStringList; begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([';',',',':'],['#',' '],PChar(s),List)... 阅读全文

posted @ 2007-12-11 23:20 万一阅读(15780) 评论(15) 推荐(2) 编辑

通配符函数 MatchesMask 的使用

摘要： uses Masks; procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := 'http://www.132435.com'; MatchesMask(s,'http://*'); //True MatchesMask(s,'HTTP://*.com')... 阅读全文

posted @ 2007-12-11 16:27 万一阅读(6278) 评论(4) 推荐(1) 编辑

文件路径相关的字符串操作

摘要： uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string; begin //先提取一个文件名的字符串 ss := Application.ExeName; ShowMessage(ss); //C:\Documents and Settings\wy\My Do... 阅读全文

posted @ 2007-12-11 14:48 万一阅读(6008) 评论(1) 推荐(0) 编辑