万一 - 博客园

2008年3月31日

摘要：举例: var s: string; begin s := 'Delphi'; s := DupeString(s,3); ShowMessage(s); //DelphiDelphiDelphi end; StrUtils 单元下的公用函数目录阅读全文

posted @ 2008-03-31 22:36 万一阅读(3809) 评论(0) 推荐(0)

SysUtils.Trim、SysUtils.TrimLeft、SysUtils.TrimRight - 删除空格

摘要：举例: var ss,s: string; begin ss := ' Delphi '; s := Trim(ss); {删除两边空格} ShowMessage('^' + s + '$'); {^Delphi$} s := TrimLeft(ss); {删除左空格} ShowMessage('^' + s + '$')... 阅读全文

posted @ 2008-03-31 22:32 万一阅读(2662) 评论(0) 推荐(0)

StrUtils.LeftStr、StrUtils.RightStr - 提取左右字符串

摘要：举例: var ss,s: string; begin ss := 'CodeGear Delphi 2007'; s := RightStr(ss,4); ShowMessage(s); {2007} s := LeftStr(ss,4); ShowMessage(s); {Code} end; StrUtils 单元下的公用函数目录阅读全文

posted @ 2008-03-31 21:47 万一阅读(6963) 评论(0) 推荐(0)

StrUtils.ReverseString - 翻转字符串

摘要：举例: var ss,s: string; begin ss := 'Delphi'; s := ReverseString(ss); ShowMessage(s); {ihpleD} end; StrUtils 单元下的公用函数目录阅读全文

posted @ 2008-03-31 21:45 万一阅读(4249) 评论(1) 推荐(0)

SysUtils.QuotedStr - 加单引号

摘要：举例: var ss,s: string; begin ss := 'Delphi'; s := QuotedStr(ss); ShowMessage(s); {'Delphi'} end; SysUtils 单元下的公用函数目录阅读全文

posted @ 2008-03-31 21:44 万一阅读(2897) 评论(0) 推荐(0)

SysUtils.AdjustLineBreaks - Unix 与 Windows 的换行符互换

摘要：举例: var s: string; i: Integer; begin s := 'Delphi'#10'2007'; ShowMessage(IntToStr(Length(s))); {11} s := AdjustLineBreaks(s); //s := AdjustLineBreaks(s,tlbsCRLF); {tlbsCRLF 是默认的} Sh... 阅读全文

posted @ 2008-03-31 21:42 万一阅读(2251) 评论(0) 推荐(0)

SysUtils.CompareStr、SysUtils.CompareText - 字符串比较

摘要： CompareStr 区分大小写; CompareText 不区分大小写. 举例: var s1,s2: string; i: Integer; begin s1 := 'abc'; s2 := 'adc'; i := CompareStr(s1,s2); ShowMessage(IntToStr(i)); {-2} i := CompareText(s1,s2)... 阅读全文

posted @ 2008-03-31 21:38 万一阅读(4351) 评论(0) 推荐(0)

SysUtils.WrapText - 换行

摘要：举例: var ss,s: string; begin ss := 'aa.bb e-ff'; s := WrapText(ss, #13#10, ['.',' ',#9,'-'], 0); ShowMessage(s); {aa.} {bb } {e- } {ff... 阅读全文

posted @ 2008-03-31 21:34 万一阅读(3232) 评论(1) 推荐(1)

SysUtils.UpperCase、SysUtils.LowerCase - 大小写转换

摘要：举例: var ss,s: string; begin ss := 'Delphi'; s := UpperCase(ss); ShowMessage(s); //DELPHI s := LowerCase(ss); ShowMessage(s); //delphi end; SysUtils 单元下的公用函数目录阅读全文

posted @ 2008-03-31 21:32 万一阅读(3264) 评论(0) 推荐(0)

SysUtils.StringReplace - 替换

摘要：举例: var ss,s: string; begin ss := '2007-2008'; s := StringReplace(ss,'00','x',[rfReplaceAll]); ShowMessage(s); //2x7-2x8 s := StringReplace(ss,'00','x',[rfIgnoreCase]); ShowMessage(s); ... 阅读全文

posted @ 2008-03-31 21:31 万一阅读(5507) 评论(4) 推荐(0)