读取与修改字符串中的字符
摘要：var s: string; begin s := 'DelPhi'; ShowMessage(s[4]); //P s[4] := 'p'; ShowMessage(s); //Delphi end;
阅读全文
posted @
2007-12-12 01:14
万一
阅读(3273)
推荐(0) 编辑
分割字符串 ExtractStrings
摘要：//分割字符串 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
万一
阅读(15841)
推荐(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
万一
阅读(6317)
推荐(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
万一
阅读(6046)
推荐(0) 编辑
Delphi 的信息框相关函数
摘要：//ShowMessage: begin ShowMessage('提示内容'); {标题默认工程名, 如: Proect1} Application.Title := '警告'; {如果修改工程标题...} ShowMessage('提示内容'); {标题是'警告'} ShowMessage('第一行' + #13#10 + '第二行'); {提示信...
阅读全文
posted @
2007-12-10 18:26
万一
阅读(5456)
推荐(1) 编辑
字符串的"大小"比较
摘要：'' = '' 'B' > 'A' 'AX' 'ABAB' 'ABABCCC' '' 'ABCD' >= 'ABAB' '的' > '啊' '的' > 'a' '的' > '0' 'a' > '0' '9' > '0' //以上表达式均为
阅读全文
posted @
2007-12-04 12:00
万一
阅读(5370)
推荐(0) 编辑
长字串与宽字串
摘要：procedure TForm1.Button1Click(Sender: TObject); var s1: AnsiString; //单字节储存 s2: WideString; //双字节储存 begin s1 := '万一OK'; s2 := '万一OK'; ShowMessage(s1[1]); //显示乱码 ShowMessage(s2[1]); /...
阅读全文
posted @
2007-12-02 12:36
万一
阅读(2435)
推荐(0) 编辑
长字串与短字串
摘要：procedure TForm1.Button1Click(Sender: TObject); var s1: ShortString; //为兼容老版本而存在 s2: string; //长字串，相当于动态字符数组 s3: string[10]; //短字串，相当于静态字符数组，代替 ShortString begin ShowMessage(IntToStr...
阅读全文
posted @
2007-12-02 12:26
万一
阅读(2892)
推荐(0) 编辑
指针的运算
摘要：//指针的运算仅对 PChar 类型 procedure TForm1.Button1Click(Sender: TObject); var p: PChar; begin p := 'China'; Inc(p); p := p + 1; ShowMessage(p); //返回：ina Dec(p); p := p - 1; ShowMessage(p);...
阅读全文
posted @
2007-11-30 21:19
万一
阅读(4005)
推荐(1) 编辑
把字符串复制到剪贴板
摘要：uses Clipbrd;Clipboard.AsText := str; //or Clipboard.SetTextBuf(PChar(str));
阅读全文
posted @
2007-11-28 13:25
万一
阅读(7424)
推荐(0) 编辑
管理
