Delphi 字符串
god00
这个作者很懒,什么都没留下…
展开
-
delphi如何查找并截取字符串
procedure TForm1.Button1Click(Sender: TObject); var wStr: string; wPos1, wPos2: Integer; begin wStr := '您好!天天开心!'; wPos1 := pos('', wStr); wPos2 := wPos2 + Length('/>'); caption := copy(wStr, wPos1, wPos2 - wPos1); end;相关函数 copy,delete转载 2011-02-24 15:15:00 · 957 阅读 · 0 评论 -
自定义delphi替换字符函数
function replacing(S,source,target:string):string; var site,StrLen:integer; begin {source在S中出现的位置} site:=pos(source,s); {source的长度} StrLen:=length(source); {删除source字符串}转载 2011-02-24 15:15:00 · 504 阅读 · 0 评论 -
Delphi的StringReplace 字符串替换函数
function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;rfReplaceAll:全部替换rfIgnoreCase:忽略大小写For Example:var aStr: String;begin aStr := 'This is a book, not a pen!'; ShowMessage(StringReplace (aStr, 'a', 'two', []));//T转载 2011-02-24 15:16:00 · 1323 阅读 · 2 评论 -
如何从字符串中提取数值
<br />如何从字符串中提取数值,比如从'-10(16Mn)'中提取10这个数值,当然在字符串中'-'后面<br />的数值长度不定,而( )中的字符串长度也不定。<br />来个循环比较看看,条件是:IN(0..9)<br />str := 'abc056' <br />s:='';<br />for i:=1 to length(str) do<br />begin<br /> if str[i] in ['0'..'9'] then<br /> s:=s+str[i];<br />end; <转载 2011-06-02 08:41:00 · 903 阅读 · 0 评论 -
delete 删除字符串的字符
<br />Pascal中的常用字符串函数: http://wenku.baidu.com/view/6ffe2221dd36a32d73758147.html转载 2011-04-12 10:02:00 · 884 阅读 · 0 评论 -
String Pchar 互相转换
<br />pchar to string: function StrPas(const Str: PChar): string;<br /> <br />string to pchar: function StrPCopy(Dest: PChar; const Source: string): PChar;<br /> <br />{-------------------实例代码-----------------------}<br /> <br />procedure TForm1.ButtonCl转载 2011-04-19 22:57:00 · 513 阅读 · 0 评论 -
Delphi中处理Google的URL编码解码
从delphi的角度看Google(谷歌)URL编码解码方式在网上搜索了一下,似乎没有什么关于google的URL编码解码的很详细的资料,因此在这里写一下,希望给有用的人提供一点帮助。使用google谷歌搜索一下关键词,对应的编码如下:刀:%E5%88%80刀具:%E5%88%80%E5%85%B7刀具网:%E5%88%80%E5%85%B7%E7%9A%84因此可见,google对URL的编码并转载 2011-06-25 19:30:00 · 679 阅读 · 0 评论