摘要：
FmtStr 是个过程, 它是用第一个参数来返回结果的; Format 是个函数, 返回值就是格式后的结果. 举例: var str: string; begin FmtStr(str, '最大整数是: %d', [MaxInt]); ShowMessage(str); {最大整数是: 2147483647} str := F... 阅读全文
posted @ 2008-03-31 22:49
万一
阅读(4896)
评论(1)
推荐(0)
摘要：
举例: var s: string; b: Boolean; begin s := 'CodeDear Delphi'; b := IsDelimiter('de', s, 3); ShowMessage(BoolToStr(b)); {返回 -1, 就是 True} end; SysUtils 单元下的公用函数目录 阅读全文
posted @ 2008-03-31 22:44
万一
阅读(2983)
评论(0)
推荐(0)
摘要：
该函数不区分大小写, 举例: var s: string; i: Integer; begin s := 'CodeDear Delphi'; i := LastDelimiter('Del',s); ShowMessage(IntToStr(i)); {12} end; SysUtils 单元下的公用函数目录 阅读全文
posted @ 2008-03-31 22:38
万一
阅读(5339)
评论(0)
推荐(0)
摘要：
举例: var s: string; begin s := 'Delphi'; s := DupeString(s,3); ShowMessage(s); //DelphiDelphiDelphi end; StrUtils 单元下的公用函数目录 阅读全文
posted @ 2008-03-31 22:36
万一
阅读(3809)
评论(0)
推荐(0)
摘要：
举例: 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)
摘要：
举例: 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)
摘要：
举例: var ss,s: string; begin ss := 'Delphi'; s := ReverseString(ss); ShowMessage(s); {ihpleD} end; StrUtils 单元下的公用函数目录 阅读全文
posted @ 2008-03-31 21:45
万一
阅读(4249)
评论(1)
推荐(0)
摘要：
举例: var ss,s: string; begin ss := 'Delphi'; s := QuotedStr(ss); ShowMessage(s); {'Delphi'} end; SysUtils 单元下的公用函数目录 阅读全文
posted @ 2008-03-31 21:44
万一
阅读(2897)
评论(0)
推荐(0)
摘要：
举例: 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)
摘要：
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)
摘要：
举例: 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)
摘要：
举例: 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)
摘要：
举例: 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)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; ... 阅读全文
posted @ 2008-03-31 16:48
万一
阅读(2166)
评论(8)
推荐(0)
摘要：
经 MaxCool 的提议, 专门开辟了这个专栏! 记得, 我刚刚接触 Delphi 时, 在某论坛上请教了一个问题: 在 Delphi 的代码中, 为什么 end 后面有些是 ";" 号、有些是 "." 号、而有些后面什么也没有? 你知道我得到的答复是什么? 令人伤心的回复, 永远也不会忘记: "看书去!". 今天万一掌握了一点点基础知识, 所以说: "万一虽然浅薄, 但乐于助人; 有什么... 阅读全文
posted @ 2008-03-31 14:57
万一
阅读(3346)
评论(88)
推荐(0)
摘要：
现在准备建立 Items 数组属性; 在 public 区输入下面代码: property Items[Index: Integer]: Pointer; 执行 Shift+Ctrl+C 后的代码是: ... TMyList = class(TObject) private ... function GetItems(Index: Integer): Pointer;... 阅读全文
posted @ 2008-03-31 14:41
万一
阅读(3857)
评论(14)
推荐(0)
摘要：
总结目前 TMyList 已具备的功能(3 个方法、3 个属性): Add: 添加; Delete: 删除; Clear: 清空; Count: 元素总数; Capacity: 已存在的所有元素位置数; List: 指向核心数组的指针(只读). 举例测试如下: unit Unit1; interface uses Windows, Messages, SysUtils, Varia... 阅读全文
posted @ 2008-03-31 11:27
万一
阅读(3365)
评论(11)
推荐(0)
浙公网安备 33010602011771号