Delphi Box Articles http://www.2ccc.com/ zh-cn Copyright 2004, www.2ccc.com root@2ccc.com http://www.2ccc.com/rss.asp Rss Generator By www.2ccc.com http://www.2ccc.com/article.asp?articleid=5938 delphi_dcs 下载:1369 浏览:750 Sun, 01 Jan 2012 16:01:00 GMT http://www.2ccc.com/article.asp?articleid=5937 andylist 下载:3693 浏览:1577 Sun, 25 Dec 2011 16:12:00 GMT http://www.2ccc.com/article.asp?articleid=5936 dcopyboy 下载:260 浏览:1124 Sat, 24 Dec 2011 16:12:00 GMT http://www.2ccc.com/article.asp?articleid=5935 littlestone08 下载:324 浏览:1893 Sat, 17 Dec 2011 16:12:00 GMT http://www.2ccc.com/article.asp?articleid=5934 creation_zy > << Bool operation AND OR XOR Compare operation = > < <> >= <= Object operation . IS Set value X := Y += -= = /= ... Value collection IN (a,b) String operation LEN Condition expr IF( condition, value1, value2) IFELSE( condition1, value1, condition2, value2, ... valueElse) Case expr CASE( v, value1, expr1, value2, expr2, ... , exprElse) Loop expr FOR, WHILE, REPEAT, TIMES Sentence end tag ; Variable with " "My Var" Array access AB[ C+2 ,10 ] Print output Print(Msg) Eval a string Eval('A+=20; B:=A/10;') Funcion/Var define public function Max(A,B):=IF(A>B,A,B); Parse Example： 2 + X / Sin(Y) => {op:"+",p1:2,p2:{op:"/",p1:"X",p2:{op:"SIN",p1:"Y"}}} Z/(X.Max+0.5) => {op:"/",p1:"Z",p2:{op:"+",p1:{op:".",p1:"X",p2:"Max"},p2:0.5}} Eval Example： IF( Y.Name IS not NULL, PI, 3 + (9<<2) ) X:=3; Y:=X-5; IF(2>X+Y, 2, X*Y) X1:=1; Y:=IF(X IS NULL,0,X1|5); Z:=9/IF(X1+2<=(3+Y),X2:=X1<<3,(Y:=X1*10; X2:=Y|100)); P1.X:=10; P1.Y:=9-P1.X/2; S:=P1.((X+2)/Y) Aim Language Convert Example: Convert expression to Pascal: X:=1+IF(A<B,IF(B,100,0.5)*1.5,IF(A<>C,2,4+5)) => if A<B then begin if B then begin tv_4_2:=100; end else begin tv_4_2:=0.5; end; tv_2_1:=tv_4_2*1.5; end else begin if A<>C then begin tv_3_3:=2; end else begin tv_3_3:=4+5; end; tv_2_1:=tv_3_3; end; X:=1+tv_2_1]]> 下载:2628 浏览:1063 Fri, 25 Nov 2011 16:11:00 GMT http://www.2ccc.com/article.asp?articleid=5930 diystar 下载:92 浏览:659 Thu, 17 Nov 2011 16:11:00 GMT http://www.2ccc.com/article.asp?articleid=5925 luweilove 下载:1237 浏览:1632 Sun, 30 Oct 2011 16:10:00 GMT http://www.2ccc.com/article.asp?articleid=5923 m523882802 下载:89 浏览:1087 Wed, 19 Oct 2011 16:10:00 GMT http://www.2ccc.com/article.asp?articleid=5919 diystar 下载:5483 浏览:2746 Wed, 12 Oct 2011 16:10:00 GMT http://www.2ccc.com/article.asp?articleid=5918 diystar 下载:2750 浏览:2435 Wed, 12 Oct 2011 16:10:00 GMT http://www.2ccc.com/article.asp?articleid=5917 xchen 下载:1505 浏览:3390 Wed, 21 Sep 2011 16:09:00 GMT http://www.2ccc.com/article.asp?articleid=5916 shaoyy 下载:860 浏览:1546 Tue, 20 Sep 2011 16:09:00 GMT http://www.2ccc.com/article.asp?articleid=5914 deitel 下载:208 浏览:1533 Thu, 15 Sep 2011 16:09:00 GMT http://www.2ccc.com/article.asp?articleid=5913 hongpx 下载:14756 浏览:9512 Fri, 02 Sep 2011 16:09:00 GMT http://www.2ccc.com/article.asp?articleid=5907 huw 下载:3519 浏览:3003 Tue, 16 Aug 2011 16:08:00 GMT