Delphi 正则表达式语法(8): 引用子表达式 - 也叫反向引用 //准备: 我们先写一个搜索所有英文单词的表达式 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'one two three four five six seven eight nine ten'; reg.RegEx := '\b[A-Za-z]+\b'; //这个表达式就可以找到所有的英文单词 reg.…
http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=104986 試看看 這個是豬寶寶從網路上抄來的 檢視純文字版列印? function Cn2Big(CnStr: string): string; var Len: Integer; begin Len := Length(CnStr); SetLength(Result, Len); LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONA…
1.16 TO 10 ******************************************************** 16转10,否则输出-1 function Hex(c: char): Integer;var x: Integer;begin if ( Ord(c)>= Ord('0')) and (Ord(c) <= Ord('9')) then x:= Ord(c) - Ord('0') else if (Ord(c) >= Ord('a')) an…
首先我们要知道哪些类型可以用For In吧,下面就是: for Element in ArrayExpr do Stmt; 数组 for Element in StringExpr do Stmt; 字符串 for Element in SetExpr do Stmt; 集合 for Element in CollectionExpr do Stmt; 集合 for Element in Record do Stmt; 结构体 我们来看例子:…