From 3657ef293dced978bb23e00bcc5bff1743737f41 Mon Sep 17 00:00:00 2001 From: Bruce Wernick Date: Mon, 14 Dec 2015 08:44:00 +0200 Subject: [PATCH] log14dec2105.txt --- wrappers/Delphi/Project4.res | Bin 0 -> 4396 bytes wrappers/Delphi/Project5.dpr | 14 +++++++++ wrappers/Delphi/coolprop_error01.png | Bin 0 -> 21526 bytes wrappers/Delphi/log14dec2015.txt | 1 + wrappers/Delphi/project1.dpr | 20 +++++++++++++ wrappers/Delphi/project2.dpr | 41 +++++++++++++++++++++++++++ wrappers/Delphi/project3.dpr | 19 +++++++++++++ wrappers/Delphi/project4.png | Bin 0 -> 15417 bytes wrappers/Delphi/project6.dpr | 32 +++++++++++++++++++++ 9 files changed, 127 insertions(+) create mode 100644 wrappers/Delphi/Project4.res create mode 100644 wrappers/Delphi/Project5.dpr create mode 100644 wrappers/Delphi/coolprop_error01.png create mode 100644 wrappers/Delphi/log14dec2015.txt create mode 100644 wrappers/Delphi/project1.dpr create mode 100644 wrappers/Delphi/project2.dpr create mode 100644 wrappers/Delphi/project3.dpr create mode 100644 wrappers/Delphi/project4.png create mode 100644 wrappers/Delphi/project6.dpr diff --git a/wrappers/Delphi/Project4.res b/wrappers/Delphi/Project4.res new file mode 100644 index 0000000000000000000000000000000000000000..fcbd537529a677360d32bab9ea80cc5e18d29c2b GIT binary patch literal 4396 zcmbW5y^ice5QS^C0V0772$5z(v=MJ$5D@_oIrgLUzKL&u5b{fSVzl9gNOK?Ih6G5> z`Kr2X&#Y(Jy_QPV?yjzL>Zg0GF*CcD)Ec7U+4JXJuHVY$#@FudzWg?gzSH1d@`L2Y zM;d6)=RW<=+vDS-O{KVIobvmJ57u|RVH5gcGv3bU`l|nr4;YD^nz`gLjgzle@tR6+ zlQ?X}`OMGOV>c?9jOQBfvc2{sM&JD6C%H^Rv6zoszzb~haK=G%jt_R3%ud2SB?pb= zbMFBMnZ`BOo?GECA9%r`&ct6FyUKnW`!qbbZN&bp*cCVN!(o(`zsm>z2-xI!$+O1E z!L{Dq4uA6F`S(5K|6$=lj9w$9{Nxm$9tZaLbDwJ-98+t(_~Wlu#WY|i z4(t(^tvJ_NxtBe0PvGvvAASRmItGWxtFIL>B~3?6!J#j$&WhFXQj>qi`QEf`<}&{g zH#sT`Ht{eY^=sIJV(E$`{7%F*XpA0}+k@;n90S6!yFv^%oh2P*Z{tI?5Qr8 zyu;P;N7-OINOvLR$K#hjk9UNF#y?a$oTlj=1;TXKLCn1PMohA%t%9!&Zm#^kv1 zJVQhsNa~&hq6oZ}Df1yiVjvH)3e`k$=6b zwq~5s%uSrNr9N=$WT(AeA8GH$p`A%_$lrGMT;lt??mGYNNQ}dJ|9SuEotz->0{PgEZ^=iKZjPtJXo)Aaxd*Np9g5~#3!_6K9nLVkB?eiM+$ndr9-#Z#l1j z%fSxxGPQ7^$LO`Uh-@8GJ<0b20vG=tb{#pv_gkLi@LE5-;051>$5T6#aCjef@=FeA zkL?Y4aJ#wXLUB`@^pk$yt8+h^e7wr#>B-lz%YE;~yJnyM-m0(pxty;@v#QB|CI3i1 zNj^%BO&+C@_dbvM+W|S6-69{&zL4*)g>ev8C(K%pxAhw{`(9G(SN4njXg}MplAr81 Y>3p{TYw&M|{?E9-_kT6`7v#qN12hRDjsO4v literal 0 HcmV?d00001 diff --git a/wrappers/Delphi/Project5.dpr b/wrappers/Delphi/Project5.dpr new file mode 100644 index 00000000..e6e4aaa9 --- /dev/null +++ b/wrappers/Delphi/Project5.dpr @@ -0,0 +1,14 @@ +program Project5; +{$apptype console} + +uses + cpIntf; + +var + dat: AnsiString; +begin + SetLength(dat, 1024); + get_global_param_string('FluidsList', PAnsiChar(dat), 1024); + writeln(dat); + readln; +end. \ No newline at end of file diff --git a/wrappers/Delphi/coolprop_error01.png b/wrappers/Delphi/coolprop_error01.png new file mode 100644 index 0000000000000000000000000000000000000000..3acc0d54f5ed45a6e94085822d79a2ed1338629c GIT binary patch literal 21526 zcmZU4by$>L&^HZ&bT`r|-Hjkh3j)&J-QCg%NJ}hBNJtAvgP?S`)Y7oz5-T0wjnDgj z|GZom3+$eI&YYP!GrtL9HPjTbF)1(+5D>86zLD2NKtTKnd`n{>0q+<`e1rl&I6M_T zc)oJCGV`=^ai)83=VXPTYh_6%N+)k+LC43#D@eyHD#j-w#>Y#?!NbSH6Fg(j13ZTA z`Bqf{ef9Y>d}=NpLX$_}t!J)p^gIv{aDF{~Blf$LSpsjO*vP8NA|TWyVcnUbA|Plv zzm=DL@4I-o;`4#XuJa_Q<~(<0H+Lm3=pr|0yhOCE9{A$l9AOf;o9{rh9# zn`Fimk1^3VX>_8o;aj;LIM}MrU^_8kff<7pRn2En;q2L~yZh2&@27nj&hx7G+rG_F zFLMXEK6WBc-Cn>_7g-vY=KB1p5Di0P1cG|$XWf+$3Q3?ri^ zho;Og$Ea;tBC(0lh*V3Vn=Fg(;nU@x(wY9Pc!5zC*;`G$G^tj|aS%>?-4S4o90!RC zMMC)54s4;H1zWCj8n4cqrj?6CTuG|#!s?QhqpdY&2U}Tf2L;_19&~i%?(b7zMuuM+ zAR~ls3ldKpNdtVnvLCPR(1b=$tQ=U+tpd;1y^-PI;HdxZJ~TXhds~X6uh|=$FpLq8 z*%tCB1%crpAY|ZEyvD*hr(OzK{)FavITJnMbz6!YS3L`ZwEP-!e+ZqMo!#9f)nJWC zW$lwUa&nT>G&f(5XR)$-UC@o$Cq(+v@aHWy5`xaBSX6MBUP)%aHcOH4>i#wgqM-0n z-BI+4cvBH@O5B2g6698Oya^*HvQ7p`4SHJtrnZibm#1gp{DE;Xx#OyJ8;s-D=#gjT zTDJC(1YK7+D2UQS*@GZf;PUNEb#*X>%_(nPxzQ)DS;4=m$Z+0CNg_=zFE1lSX(vad zg1-XVSPhzg+81_tZcvpQJg5Ey(xe+o#?SCKw#!&3OW)=NPbNIjTHRVhF?UHEUS7R;f*s$|v0;*uxg(Ypo> zp>Da^Z8M&`^J>S6HVFQ?v~<_KeYsq#lz@Ps*{~YQoIhSuUM}i$Z0O{4MEQX7PNwPc z>eowInMvFNTN$4!!cl8|32@pAC7pK}YZSz%B5YRfyK=q_`8DgRHEkt0qz@M#%#z9r z?+f^&8&n&1CCbJ1b>{`Ydez~dmJzdsk@Vf*(tHy^A^CKY9JX)cU1EQ8lVL{gmEguW z2p`xExVgE3TuU-cj~D0!EUe6hxSD8jA1WxD=oNP+?~G0dj4w(B?K8HPd+XiURQ>L3 zdgRhtibKxxg8x-*2U-4A?afzbnlF~9lj=H!HN? zg6p)486gH6+t$u*kHg2`*OyaECLkby+qjjAf~3zHOG>ZcZ@Y&sFDGXpbGdRhHWcTb zjE@@Xd;gj>%Hm$BurogaA?yy#U0VF|K;853hA($gMJxGBtmPtlCh?u@b~Ow>#-ps9 zQjTM(5JoUVP#QiC?w*VPj`GCA-1@T#FIzR z5S`DHQ2yviHE$oSk|6x9??F^3pcR6#vln6?L7~mArlVf_ei<(#iDXc{j($6Q7inU*F6F?v}b# z1EtM246^Vl7*Opv?q}88I<;4H6S^Nv55Go3V^Pm*FC+)8j^$9*O1F7EPNoW1^$gCG ztGh9vLYgF|COHD#J3Adrjc{MpvRQyfmZVEcbl;B*4qh-i?KaGxi6-ytP|%QmOx(p3 z16^GA@oPBmm|vajVzG>`)W)*fbT+sZcV8EOp#$F)yw`05-~9l!GWrztGt$ss@xnn+ zy31Osso{!QFSKay$6Bj?Gi=ygaGwJ#PY+t;wGUO_b!Jsa(^B9T6n)Dbi}4&|xK#BX ztNr`Pz;tx!*Tj*8kS`A-KNlNQmY8&cDo(*uT(zWgFmE6*)LIrW08cAX#~Iv&2)ieOPvQnEV6 zA|^(0KHtLxhGyUPDrX8grp4sfOTw``0%Ytw_3hoXwFSF=uGxO9Oq4$#3@~i^ez92H zE?s~0>FTtWJZ~*pF$;USt{~|_lY_~6bDo!bH#{IPCgV|C>Sv$I<4t8h$G~7z^D%gC zSlVS$+xPS2F@-wir;#6@FYe@NeKIR``g(?4OQOlGcXpHu6T4RP2@!ntuR}4L0w4CM&Wlod*c z0_VRCv5Q7&L>UY7DeNJ$u^($GwUC@7HUh{3DO%ulIRUe^P{jnV9fez|w_jjbzMc|s zLm<=vGA{0c?lD;J#7~D!GogSSJw;-l>9%;u%28v1rjiy^9hG!HF>o;zgYqR3-zUk5 z!y|C!Nqco(g!d<-)GenZH2C&>9yaUW#`$bLw4i$bAKG4i6gSQuQvN^sMHL!&jE!Hz zY5JkP>lfBF9V7@9!Vdy z%#V|R4a<^4*ojA6^s-S0r4J5B#KU#<^Ryy2=yS`}xrtpwU4Qms&J=H?Ok26P$R$n%EYbYXj61}&+uo;UBN`mV4lLIcu`5hh@@|gNEeQ4(3&PV%xM~$p| z$FIMas^ztDQl^Rj$=vlggcfMYo$08zzCL@NWWR;e+3-AC9aBpeFVRF=`wD{ip<`=% zyX$HLYcP}RK%k_!xRifMa&p$MpFEiNC1jzIIC4%z#b8~5$v zE9G~4HM6!Y(1)zs^kTg^sfU_O>9CE2#dkLYkV12B?rGsH;*-uldnK87`;f<71O$xT zpsq+<65k)UaHk+uxWEyvLBP$YYhH7AyTl0uWyfBw;vzUKwxKtaw+QlHqe9L<^iEKYNgeDRB_#&L z{ri*xCCwG;d6RQDEGvWflN$Jo4vbJq@&Tnmcn|(Mb~Gg=B`4&&njQWTzqBat*e0>) zKJzm*f1$}OuVb>ClM+HqbtQjh7SvKz*h`!?FGa4ZAPkr>J`M^|=qyrvXv(Xx;Yf_J z!ndQXe;ZSvhQDSuexBcUJ?MCbID9t=rVXzh%J&uVWzz6{qwCimd(-`k?=>6t{j1`k zz%afkyj)F91SHI#_F;B1(No*r`|ronOm~9KNWRmGFHrcgZ2x#JP}1rvR!X$1XDbdy ztV$4Six;~**K2ZYUsAxRL20O{s3#3LTB1zys=D)3>Qbw5>Xo~{89{ML_DZj2CU_V;OoM3rxWIFBbNl=I zU%!5>xqEm4Mp(ni2?a@5fBr%n^w=Dy{_ghB?NuqVm}vK|x(fY(@3{x5h2r>rYl;1P z~X+dXbL0qS5!<%CV^_{H>tVlvz|duPHHtBRUU);ekP{0t<`H(hr=KtYn%3)12G5IK(7={88m z%gsHjZt+VN8H1IN1q=d#Y$aEgm)+gnk0BlL#`(9m(VN?tiMZNOGR-SpQD+RuOB`x{Op!V7ORS0B`E%GLD6raNb zd4Fwl3xJnw`NjH$?Qu(SL7`&$REx3si)gggQU>xz!ZM3vQt^3xs>_ytf$ z1u6;RS79{qxGS5cv6X}ct>nc40z-06oKsQ>8Zv`v%}j!=11OX{XO3>sQA})EQ(I|g zBadq%G!&^;-}Id8uG^_8_wN2aFJYUzRRD{FM?dFE=K7E9WYf7(EHkt5!vmzR6*mvL zCsjhbYpH}NeRW7CxgZdhYNN)k-ws~?|D?n|#p+(Trs{)gku07oc|`qvJ9$sFkB}$c z_tnzBrNz%C(Q`ztcK4HK?=7@UR%Z7<1_&oMqv3?^9v=B3R9Y8D`E1?F0rY>xjZ!+R zH;hzhHoQhUXzkv(O+RY*VVrCP)>D~!|7Lb{AJH8<8!zuM@Pi}eRzZRU5j zIHk-)(*+HpnFL*2KHfw5MJvjT`vNi)Rn`b5wze#Fb#;XierMO$dl(o{b|Yc(L@LWL zFfim~XY<_sLJAG#c@&QhC3w2wR!E4%A%Jc(p1nX8;~g`LckSzA*(nYk-yDU2a-kY3awC)p~W(p!~6-6lE+)=ke`h zx>>4rECttpRArIH1i4~CrR}l`o|>ZmTHjjsC-bHOt0^YiGwQ0ahoT}HVLtI8cNm&N zn50Z8Fp_5KO=BD0*k)t=%Ahh68O8JM|4?e(z6@Ed)ieKf>;U?LZNbl!g~`e={vWZ8Ef?YWf1-5O~R%m9p^7FUid(Rg)Rv>hG{Y{|X5i*}{Yf&L5d{y0Eo#W6hVIW_)od?AHIZ6?S1j>nru`!L{f6`y=f1N^r^={MT%>i zoV2EaUAfPDI6Ce^ZK)wJFQ*rlGU(?GFJsD3GDk$gd{ad0Uxd%UN;uR?{*;w2N#o4j z{cX=W${|D>A*FY0TLPECX#+DTjj61+U{xRPNSs;c(CP{%~A5v0#%AkAt(hK;6*UjSi%|hOc zPfa3OSm;Jff2sn?E&kh)<#Q>-yju^9aB>Q<(|+l~gEL=T6x#o6nn>Fm zp~SbVz>nwtp5sEy3@8z{g{mdgiCXYHdc4G7HMaI%rJ{XQ^BiwO^>ja5U2v47_|&X;N>x=2x=VV@ zx;k?Cl0>sEnL(^D5bAyt&o7T@fVLZqD=-C_7|-eC9V-x?&G358$6S)hU3p~Mi1rKg zrY1CWqd5Lo3j_Pwh!G5L;`Eeu!O^09b$ANO#B`@FwZ7b;d~njf2>G8`O^aqeJq$Gqt1#Huc0uFk)UDUFip{jZWK_ETuIb@_ zk~3A6qt8cCr?XfE1&O+Yo{8=M0QpB>t_FZTkC#Qif;T`uDv7>;O3azT9!bfJ5X7&U z>7QIyrI?u_FJ*LaWRY*q6;_4dUAIHYL8V-8pWN=jmQ3O;^#OS2N0bH&R_O`B&To`( zl|-$IBQM8%<|XQsmh@LHi9dMU zg413(MM{1)Mn&vJUF)=;!)B<74`jT@g{sC6l4N6ld4y1-)d^QPn*?$ zM4OBniRFD6B(S8K@zDS^ZTxZf>dLzv zJyG&U?BJG5FaxAtpV?c6jr%2Rsw$hUdxUB{v4_rOxHi1+3&RwDboNHOW2NUER%@By zsgQjcN2aAA->Ea{3mF;RsS*6FKaS_uG=d>jAQL{aa^EEXmYDlu|8O+V+tn^{?~B8Q z;i10u>v~#-QlugF)0E6B=iPBkU+U-0xBFh^x^f+I zk+HLr9VomR-3R#+@tip+Nos`4v#s39!PlxO@PnC$MK!E0RmZY@Qvn4~p#bMif~e?q zMPx>nfx1|Sqh|vujF-D;GCOJ+;touqSpt< zqToEkNgjH!m0LLI%@!-+(L_T-g9eu0C&l&Prk8e#C108RDx5@2F%T61!P`QRW7^FF z1I6aiRG`j{@GWsi=roT*UYnaG`N}d|;Il@f@dtO=>-H#O*vu@t16G z#|OIu=!V0S5mB?kL#wlxklAlYq#B)!G=Eu4dBp`FAStm}ZrN7@xlvpK3>90`|n z@v5?HEW~C$>u5-O+$*I*MXg)r1_4*MD!`I$ zqaq{yvWN4%9PxBQb*L-+57r*aB|qD%2<7w3lVZe=Rvhi5{Taq`ZnhnQ;EpgeSo|tS zM2ij<*-2T7`p+fsiBN6#BJU?3ors^WD(F_lGGLFRA_jS6sab4f*eieA1yZlELhl{% z+-&SJ_p}L}^D4mjwJfH25fHW@g5;E!7^ee)l9x z@~dLNNtLpurg*WMF}4cBDf2`?Uzw_1i5Sf_^~`Y`nX+WlPIlHkI_-OplWI~#K=yrd z{Rj$P*q$qiZTIDyrC*D+Ln_C8ex;@>NPpar#5}|o00(s5>?NiwC(>3&zaJN^+u_)i zmm^b<^|t;|cTe?kP8SXhTi7ht?-NNm@bkLtK0qTGnxYN1%D_dp0c<5%0m+|#XGbi; z3r7^kHwj-DZ$kLv3cG|$vDC=*2x?o@7lIL#27Zojx%7YL_AJegKZ{8u7jcx5K5&k?(USop8&_8xJPtxXjT-4`v`j9U{1dq4#TV!B#WZdBOI|T<94v58X z!pk|X?(2oVm}}@TE&20Zbns55==(Gyreg#%ugxX`{4eoex_+zZmZz7pVRwnbKs!Y?}1B_D0$*}AGn~U+V!>;`P^VWg`qMVgEjl-G> z2f_~`V$Ysx2%dT!?s(f_1!3ZDKEZbI;hSUs_UP9lcoR%!m(S7`XiBV#VL4I(`ibSC zIKOS7f21p3UnTU=u~3f7V*<{M3V{*d+So9xSkU*DG|ZG|K~ntks|2}xm*#FrZ@96e#7FDoV| z{c#jgJHWcx{@FO_)EQ@~;Ys=D8z5=vPCtH0@!R_lB3V2>aOGG}irS>jTOAv>jq{XX zoE!Z5bw6`YdHLVp?;Lk$LA1d4UnB-V%BL4>fRQB~H7LuYdpml&I z)9U(gDZY!Gig%#@kHPAA;1=E~9!P^QMQ0W8nhZZ&CJ8$51W>TDtN;d4(5ec>*ldoNo(R>&_s)Zd3F9w^vQcy+E{oV0D`n4PSyLc?01V$U?O zaIuK(E16XU6wm7zr2TiT$NZ(^LvO5naczi0Ltg>~%;TlNov`xqauBG{V(L)d|Kr_< z&9L2RlF8>RfR_mmeMw6)yeJT`Qm2vC3NN7p#{*?l=_8#B?1qkJn3}1=yeGOC{ft1~ zD`m72AEEHj&KH0Q>D$yg&lee`=cNOP*XwB`pspq5!YF+;K-1{So+oa2;Cb8Hszp%l z;%aM|CN9;zJ8{mSlIB%3@Ej)u2_}zE2{3$kx!MKs3kon1hal?-K5e~aaOLTdQ*N}z zwkNdf@@Fe!_X~U8XA-d@%k23vc^K)+doR^}n~gkH^N7%wso`_sA%7k>{YSijXq_!1 zLyCU>&ljo4Yh|9$^s*x(8d3dc1ut6JZ(M$a@cWy61kx6A4Cn?O_#-l6uc5I61U3?K z>5yu&+px7JnV}uEeJphy^2p5~L;?#ljYvkcy4+%nw-kc&qFg3SF0r3!rKD={xi6x% z6uzt_52AL8u&5s{)oy@$T*H>h>wv6-ippy*=)}?rm|yTsLZW=Ci^<#n;$?Dja{AiV zlpa0^l|=5XW?p2!Y}8KMhF58!i2ymmL+1?_cDDetwQ6$MosrX#H~^RY(|UxJYQjRz zkM-e=*wvI%l+&j)1K&^(jZjJg=-reW7>}{k*!w9C4=F7_y^s`i+fgE!75J#|(u=RP zh!F!S6SI7c*YG{!YwNzwAojiQWgJlb&w3>tY#d8e!B9~HETOM`2L0kenLum^|K3cyoVMqxyZlk-roQZrVcI8(P#+fh~#>YaE-F?WhMgwqM-+RMt(`+DAJ% zCI$c#FJtztAHxnBp!;4x_dlJ9LDQMrjzP)>&Dd%D$)wwMzT@TYV~M9)h*m^pN+xgQ zNjE&v*c@7{n%4d~9&-$U0qG|OR?w6V0t*>@Hb5S-c0;3*CP6>6_peSjbp@Q_#6F}s zvXs+yKFr_H&UWNm-X2i>3BJ2pPZgdC;y_FBZd%16TW`?x+MmILCr2O5`b3fzI07w``!>`!@;EjC?etdsJkVwC!mPpQ z51^|63>zOtIg#SJWNp~S=%^QqpwP}C0K$)o$POucv-DnGaUDgj$R z?L_<=qSHC*B|k+NHhgRHQcu!>)fWx1_jeLR`Z&0u?OQ!2kU;z6O(?Xx$PD+W;@r;Y zP9&pYYD&jQs44s?iw7G=A*!k=L^(xG#9 zpa4tA<442KNDy*=Qx|l5LW7QmK{}y0{w?Hr$#x@s^aRQkgL*VR6I_X|kSO}_QXx^E z{@v)nw(V~bH9U;#=Zx)SqH7T$-(vh)9RD`dt+AoN@0sSALQF5htV)<5$oPbJpD6p8 z7*A+Wp9p_!{v#Q-qJ@YpXAGy;-62~4z)4^jMny_Ijn$GG)@(!H)^Vav%*)+>q@=7g zOb3R!6fM0L*%gnX17rEEhVIC>9$&iHS^(eDv6ot$34$kxOiR&FjM4G3v>Llu&Q^50}G2G z#(>HJy+c2IHT1ijQl0fzpR->67R3=Ii$n3DZ`mH`D2Fp3Z{{@A$L(r-uJS<^m(Lq6Q1bf8^XwpS5)acxrv7?m;<>m7{V`#xjf1 z5!%pZZx*q6;r=Yfs(VH?nsfl7_>UH0xF47a$ie6StoZV*fjvV#U-=+IEbxIAXJq@M z!~`ZfR||3?7kl5!Z+$OssSQRv-vhSPX8U)`@$p!-Eq+5k zXgW%TSBHPCa5IjLtKJs8#wgzyL_Sz+ZpK@RruYF7l|0&ZlT#a-TFuV@`B%&MlVZtc zanbnu;NH2?`{BV-WMy=54>%pNZd(GMScQiUEfZ9^2w+ZdY#K60i%W&Ub@~k)7U!_} z6-74(7%L8Ab2@C06nsGz53cD)+FmuToBTE_-vT08i=c8d`yxi-xF%m+Y9yJfMm=bN zfQ?8c;-@DIFs>?-^rjq@g^^L>yVN;d3|~(8x+VInrGDZmuWQM(Ds5ve+%Jht&7QYhWid zF@Jyvj{=~872mVYsP>s3IY||*rQ#F$M|Mtj6w`fpD~Hd6%3$l6)8qKdYtMxO_LonU z>^DXN{fQ|`y?pKS#Lv#1s3R(t9@(frbdZcw03g`%@_7F*6P47vaKCCN0REaK*x zl19Oy7K}I1qzQTV@bx@%zNp3r$8$rH1c;+X7$k^Ci8>mIB!S!fecy02GQ=#BjkEkO z{|M(-uhOxxwWuGiGid@eA|9S!Q8ei0nM6{d>L2`m+nkXCK5fM*mF3} z;^UOi4YYY1+HEw>j0Ta62qiGEwAu>EzALo}V*%{c=E+VaGypW)Ni5=eh6x}V6eJ}8 zRW|`h5)t_DUy^gP!^E-D}!f1#=uK+#tKH2^r z=*6p`m$LfE@M7Lw_Rs$ikFhK{(3z>(%n-mWqqAVhh{nFgbiGAkF)^b)60% z4-6s1m9yI}mp={bCaWf=+>ZGVfugTz-^`0wJ`|>kzi1Yf5}UYLUg?>75!=%({_Zy# zqLHSv@-cb|EmVQ#y;ieO#TaJ2U)&(hw;&G62hz9E-`kyARo zj1{`k6W40CkjRufrZOwI6k-&m5Wo7o=gSiJhYqY9&M;mh@vncP-PQf^C!#_PTvu+@Tk@&%Wc7L*k4(60Urbppo&H{z|3oKBA_(%h;p z0g9*b2VhLmNN193aWrqm=ySH-r1&4*>{|(0sGqZ*iBEv{B0t>!wb?8lB}@vR2530~ za^D6T#i)dPPnmD?N|JZT-Wii$Xu_q;90>-r{U5e8l2`K>>%XAo_|3K^nJkEoB*y(O z?;u4?-91G@%p-luHdv_$TK4l+nVO^D`kPn#pG_2`X1XZ8PoTqKgF^(nH-)|O=P)|6 zToU<7IGtz~XLI@P4b$YJ)?}@F3D1WwJJ?`^1+&iqzZ?@6gX<(EFwO%&5C?qVOn(Bg zLUt+*R834wj1EU(4RI3z{_!Bj5}gKkdWY+5=kW&c@H8opvf`?zK-5biVTih!6muQOg1aDOqE z;sD@t3RFP3-W4Z=79&%&7Hw&u3+#Hd3a1)l9k(~O%%9tCqg(lVI;NEewr)^t82E3m zJ{0}(xl4AZ8Uix6G!erc0c6R)JY1_>z_|Ww!R^h>~V{SB!C&1yrBo z%02H43R=UjIO+KesSN11W{oWVjjo{m{iC!!n5lPF>{~>n&o~_zrFPP(=wl8Fr0Bym zAT9tu0J&0-!W+E-+NuX=)&o{k#}JWI@%Sj+;^`$`BV39$Ytd+WqS#A&oFQ|hfE zO{y)z7sz4y0~=p3^5NK*atvB?X}k=!LX9)?7qIfZ1yG?iYNFIPTG=v;2~!)5E=f+_F=tv+diMjqs)Po?hPoyxx2Xbm`PwS2x6@p|eVt_#-z=c%UKq7;|Dp4To#B5C-530z zfl(HtnlYMR`S>vyqc?y~1_AJlDotTiZ5GdKXfm2cx%`4HE^pL@oWxz%evY$SlYge^ zSEm+rmDz7N?10`qbe53yTD0N3x%V{sRa3I;<1AxPFG)jz;`MAiXC~LV#`jl8WbBg} zi-dI~0dovu+?+^5Hq);~3xnpa4=1||-r)eFBqh%=uyLlF9p_HKYdaGItm?ITsp_-@ z5^@&qEISgUf@2oES?%Stf_>%_S(~-ocSyg*!AC(y2YK_#x5~gI2+tGYtT*Z+cp4Ok zLGluK6MnK!#fR*mieUq>Ia)&{%T4}d)iSasb=EW^zifxg#$*2c$%jSjpLGzpS#;(A# zM$?Vmcel?qZR+xO{HAlgF+WK@74ywLp{MbwOe#;_=3T?i^v_Rdu(F=qL&<7S($@05 zz8+x2nwfe!ie@ji;`;q{xxU$9#2cEI`>E*2j&uCTj@Yt)lRcxdZO$XN*%KCYDUph0 zueW7;j2ee5~EY&n||-!oeZ!w5o|(#q3NV_$c(`rDnu z9mjTbBUvWtYE~ws$I6y&N#)*=`k4!5jx;Xx_E9Pl?pK- z$cWrPi4+AG^-ENVWSBqHRBC;Ts;_u4Xe(0qOZ5%+VZpO5>J7MhRZr%^3SVr(^9Jo! zOR`m&FPP9b=>_d^ik6nmO{bsvFE?L+mGOr|dmxIxpI{h(9%lQPXX3nDif5Tc{FnuP z2rJx*XJLw7DGFm_2-_y|=M2RU=b-i3H9~r#k@7RAn+G%u++IsPGYZc=;P?Rf#Xu*~ z=45+x)bk86GL(QA#q$M97CNT!4{Kz5kn=;>9y%K~+Z7ISI}Q-^0pwD-5ZZH`^YICo z12wfdYZ(r44xj7e#r1mRe%??3Ad>=vV2bQi4f2%)4hqvruZN0g$P0YP^b|8MUnFE; z1bDzRVh!FHtuE%RT}J`Wn_a5X164ef9GCSZC5K4qkOzt7)4q2c-SRhK8+6i-wa{HN z#6;#2siW=n#S3+ibdvYfbi?UD;n|5AQC(GcXhw?C2RH4@WfJ&2%NI5~qG!y#so?^i9T8Y)Yn!{8bEZ!R z4}Us%oAwp2e?ab19ig=#GqLn*>=iug{>nN!1)CpGQW*cikmh0kk(}o4N!&459Yd$x#JG z@p=x3D?1%W9GNx#XaTN%UMI{z-Vz4H^!hm@%r+MSpsfQ8K=tSWB^UN*HxaY6hUbR5 z4_~`;o_GY3AP07E?d{Gtprr>G9d%LalDt@SR^d^Og{KntvyOz{Uz9Ii>-M$t#WkL>xVy!WocH?H*yZ`t_sMuc^))X zQFhOT&y1GQDcUf|i$<({5O52s%IWrN>9_KG;9I@h3wLlcisJ!iXG|)nhAWf_==kja zC1l3l^wq^iifiouniOJjL77jVpC0(`#Q8~t$AqjE{Bu9w4`1)mg`d1;-3rExPSVKM zteWMPOq>3pQYmu<4-7$f7%%RIw2F1hb*KvfxEi|@hZgHEe&R%DKk*rnOp&z7>3PA04X)S95Bb{3Y>! zb)D$uiTK4}(|e~qDk>%SP&>ZT@v?jubCguWvf;K!~QWagO&s}#*;?tU#PvECuM;G1Y`>F~NPFW>8(W$bGjo`;~+x)A8h=qq}cD7Y^8Wc_KN8-YPf`<)rC+oU~>7XANS-@$Bj>% zX~@a#lv}Sq`G?gaZF27OFQxJ|5jS#ztZvv2&~|YeGQLnOUyknO;!%}Lt!M_pItl%O z*?hvvPFwX3kAOrnCY{ZdmvVTp(AJ%nhaMmU0jOvO>wVFzb1xamwhR)TIuB`-lhC9{;j{~xPUHS-w zzzj>6FFMghh{>lX^I?AK&%c#bRaMniUODJx<(vDw9=uZq*G9Dx{UT|AJD7X@?gaui ztK9IJtJk?ooN)5ZK8v5A!orck<$%QV3RVn0AxvhUj^=jd7Y-;ee|#BW%y~&ODk@6H zLgt`#-&=Yyi17;J@UgS?DN;@Pt>fA%_64kpl#ywuy~dM@m@-bui#n^<6baca=zCU0 zCjgdEDlCoIP3^h3k?XdAp6wD>(#LJ8Ts|Jr5-j8@*G(hD}M5ISHPL!o8pB!5-nXo|G4 zbk-|8K3QF$q+^Ddm+Z|c2d_BTHC_6}y2(T+g-h|={%jiXX)(bt1zMMQoJe9>2U{SH zMcp8tdDZpKfKm9nq_zrBRNrhZo_oVwN4-r=PJq?;@!;5g0(OwT_FvDP7K|yV@NSDk z1{wO3$NTy}?jIQuRUYV&Jw@~1f?!**C&O*-@YORx#Fj`7hb% zOc>KoK5{4Losb7nSgpw25-_NvqNy44CQ#JR(;186+`<}wGFKRsL z$B_YNdEb$Yl=qWWTl$!g>z@1%XhauM`W?RCzYmD;CZRU5GvG{6Ta*-J^ z$oCS<2Z)iZK(oWNm4%>5#b6`2x)y2XJDworWtNPGQ#@XXpwW0GiBysJpM?>Qy5Rjc z`6EIusM^E3d(Pi?X^7#mYW@Q9^t>m>q{npNP>rW<5Hq+`ZE>e)Q|VN~b>%DN7qV|L z@8^Z%M!&rYF6OGSvkFw>Zf-#SLNy3?_4+$RGNP4D=JM7}SE$yR6IbNC$ZrJ&GD%Nx zidCiz8t$Te2+(wz;=2#5t$d;l%xVD>fp;@upH>GVXW?`MA8g*HRo{)5y=oJxS$z>? zdyX9<0KQv)uWr*6iqvXqbL|}>X|-F%K4*HEUgWLnuveU;OwbkD^8l-$09sCes(L)w z6pX!f(*u`w8)TYUG*ueDWdEIRt;0`gn|(FDJGvP@-4<=jN|C0~j4^fOd)Ay7QVxCN z{kOcl<4JtxBonRGtwx<~iDxiv=dIV;gSW}6y448f)Q1zxAXX19#W|a0pM%1P@nGj(SOY~LJP;S zEL(nN|Mc#y1a+6`t)%nj_S3f?$F2CFo@fsCbBUglVfk_(re-$^>k3g{&<;k4cz~Aw|KYCu- zu$2>?=Rem0#wPHy0%PHp{n7c(!2jSZH|w6id*L94QYo9#>os`bO_=A@rX~Y#d{J^Mn$u%UIPn3Y175$Yi;5c^hFYGTMWLeUAL<>h(phTshc_B z1SvN6gY{+8?c2+``#MvmNnp0G$%QsGr6+*y51qG6Kz`mrg-JZ!A!I*>j-_jaWKw|n zoxrX!dOTjvQ*ba3b#h4xzALtg8&tys@*ba%ySp}Oac`=Y?URO-h?8v40?pmdv`gpG z#przgo!7bOYOW9s3j7oBZ(VMHM~haK3F*8l>!|5bcqniRB**%)mE@tPg7%FQqB$yJ z=b9`13^B-J17BlTV)xPFDkQ}rmG|z8DNx2FjoxFI5LLY15{&I<*baeT|48tqdUqbh-fdD|5a_=OE1Xm&{L=|wVpUOlj{X`duq`uKL1Az`@c3k0~#VW>odH=N8{(W zT{S?z62M9SmbAIVJuLw?Y@E^5`z`Y0TZl8(_weU;CIWSl^U=2z?j_Ytx0obC@k0*8 z5UPXnU}xCc|7+s9qncW_zCo%=?_E%;G?5Mhg7jWOHA-)n4pKsk(%S`8KxqN#Eeb|D z;UWS80-*#@AQ+mo&~vH6ccO27@BMk!%9_lXz0b^^{VPu}CjIS@xGNyC&%kwn3*Zd# zDpzslXJ<2ShWyG5Cj?X0Tt#qq20sQLi$}(!d~2Q!!7@F5N0T`gI1Jrz4>cRDZpwJJ zn^1JJ&U=DOa<;k-FmmHCJZJ;@+>7<&QE7AbgqVselE5?_0c8=S4h8-|_u!Zds@d3? z;s?c8D38fhB;WN7fBrG&2ekeh3r0*;TG7tA+%f;rLjOkn9&)VVUJLZ=?f@IWRD6!% zF`c=D6#R)GE#B0h>c)*=>6fxl>7?C={d2_QcCYotze)o3lIo23-VDME8SR`KZ6PgP zk?v^fiOg}Dz;BE}Q9Df)an5Huxl(%o9jgzbC5 zM=nYi=lBdEzdMlQ3tIS^yXnFQRVN29@ho8yN=v(OxFj^x4Fbp#M7=@Xr;K|8dOV4= zoZwN}H8WCPsbJv{t!DoZ;nXUdR9KjliH;QLs1x;wW_ZU% zI(~&&WfAR&OZM2exM~*U3fcEF$`R+eT<`auO9}7fbsv39*{EQ_zRa8x3z$#qBDG=y=y*VJ}Yg`gwTIzHHyRaj6dan}`_@Z#>Ye#54x@9{|q= z=xLIX0y#n?3R!uo8+Ae>EwI7x*J$yRu(s z)=pDKUGb8MgB%3?&=cR~QZ-JkV(y`B77)N-~;DfC5$6y>DLRinhoguO9iUgfCK z<%;V0^qKpPc}Kx-Q~I^P#}+(&B~j3U&rc@yh_cBKEx%NY7uoOIAKX3PBs~Vu5UL4S zlNMgtMQpBwn|keypS-?)VGEn3xgzrfl~-P3>TIdX7@y{;fu<#fkox7YBu7jqY9cMH ze@9aJuqz_ubH6CHFqitnbM^l+*>0oGJtoT0gA%xck>miL++jC)RuyR2O3~`KYFI@n zh%msdMF$+lbGk#K#V}PxTXtuEi(cg}(Tx$PCtO=$zQ5*%hn7xn4BKU*RU=D6Ox~5y z|8U&2jHT{cG^esgGP(ZS9CCCojI#CSq%L^DitsGR?iSoQdf8$51W6Bx-?@`IZH0mx zx$#l7XK^JFSGS$yhif6`)~{yRhhK!~Iu@x0#t79G%ev6hDV8QaT?;rx{S zM)&$y4qfU8(CM8yl%Qm#cj0_GqT3=CW3t}De0^%AnmvVeo0az3&=_NgQ$}=ep4$JU z^D9kH?~0_UPQ_QNi~Fneavy3-MAhV*-y@yW{b2%vt#6q+!L!mg3syd_SKZm+z;*6F zB4zi{gtxC+FIq#?sm-aQUH5AXa=30>N`L^NPcA6{Ho0TSm}qYDBVI>GGj^SEPb}~P zUmf{xMn3E&Is-m;$4T}B3Gi%Xtq#ZBKbu<*>Lt~>aVZRXKn#tR`k95qubYA2MQWWz zuhtI)N>h*>6~_vIci><1x=xI6 z8j&qXge;%X+ze7Ez)t2f)SP_z>|i^YeoH=TNN+8w?D?m`W!77&2yd8KtDdBV=#zlc$^ zZ5eHUlkBsPR=KCtN+u!C8<%q(VN8LPowZ(2sY@Ixl~J2ORoFJJnxr68NKOHGJCTG| z_DIJ0n3XE&D)4?=RyZM{KF&pBd?u|A|IsAMRFUs5wn94yq>zDw8E!Gd;p&#n-?9>H zfDtc`a!Q+cl3yGN>A5FS`W9_Mm?StHjxqJu3f<2W+@oQ`TA8WiuJA8X0|Nt>gjYMb zdmr(E!V5ZDvz5L~?Da!{yZ1wUZT99CqNbY*E5iK)+ zaHRt!@$%&E?tWlSPC>y}>;NGBxun3MooHOyHPFSi4U*NBJw~tg9Os4Ixa0zr5OWhG zP=H}DRe&YU06ilrpl4LeUrc}y;EGWpi+fZzE?GchfA$6)r4)W1s?SVM0d7gW*3ZK< z8f(|vq^eLRHWtWyk2al`Yr*bb)z9=#kQd~e<7j*Ob!HhkUSQ+J=iuCGUC=mJ6~#-Ra7Ymr5PCsp_P#- zgfEYAzGNP`bKgIN#!#Z7@kd<&Nf_DT-ctWvKX3Sis!XvTO2sA}4Qnz0I{eqf6crWe zrHWg<@`DFS&$#clw^dP#&=6}s3)y1Va0R87GBY7MiCp~>DSE;3)IqJxF_kCstfNS= zMEjg-$k))n(-ixI;=kjHbiJ-c;H`J>>8@ zZ0_vzgxgLTz||{d`-cj0%^F5r4Cmdl<83)@R4tDmLHs#ftn!b1jE+=hGAv-nfS*B< z1HGwNfN5auuG%k^@>oGLK#C}5XIu0HBc1lxXJ8*4K{q{R`f4E=>yn!|%VwuI3%~CL z*3g>4qe5logY5r^Vn8o7YrHv$mzVDfo^$%`V&GhiUh)ww+<+=)*ik&KJ{PalG`0_^9Q#Y-9MMu$#T zJN?^ZjC$w#z`xo$g3O$qI|zV2oO!-nwXMz3466nYsPZM7hBsm6&0)5xwM-=-G3!?#``M%FHx~bo*J=G?^NxX zNKpN1l2t?HXsiq;+Bt9K@Y}&Hsu-K!6*Swy0V@}8xZMoJ@Qe`Nf;&&e-c0Zz5hTr*|p8d>k_C7iNKrO`F)3#@fiy%kV*BfbS zF0BsdueqBbi$p|3{$q@gsHGl0`L`;$wBo?e9M$s&%DZn0E3zC81m0nnK5v3L{R)Am zLiZNcQ<p%Z!4ro=DD?98~(+RtY2PJTYE=X*u~8a)wrVw*yznU z1{#;ioYdxFh3%ul@kupvbh5Ut28R^`CwM?ii(xLWt@ZX@!k=C?hek^p#XE8xjSk|^ zXB6G-r+Crv0_45EDH7N8Df#JCl>f?N6Pp<{*Dfi6=vH&)u<5_5i;G+Bm6)vMdYq<0 zNwyh25;5|PgWa)v41b0TYUnI#@3OC%)FWni;VkVt~* z<9xG8YDC*AI4C{d&op%&u>v~|>4+Mc%uDVV#pWwl0|KGsz^rX(c+rK0++M;r(8I&{ z;+W_wYaTSbfFsPB|GDOEdUPKj1AFQQ@bO*YB8|W6Ni%>meV9e)6NywwAvz$!JxMK@ zLFqCi96w=RGPxCE*NGN1EDzP0MalxyPgsj5zan_liW9VLJ6~$3gRT@a(|C+qF27fJ z@OJN>TM{e<(or&jP%Uiqp1lCm1fI;wF3K1Gyx9~+7cub)s?}aALKEpZeL6G^5&A{V^CS8}2)gq))_oy{O~bo!;j?vo;(aZWY5#wLYj z8kCL{YuY9O?Rt94!^-LK1pCpj$se#&>U8BGkFP({IJRX($<3R~WKh5_&qTum_hfQ( z^e*PI1dXw`?iyE0Y!_F;`hF#(2>4b73G+ThRD^?%^sn*7`P8kh*H`fu@+VwuiJ0pR zZz;_)UP3fadI~!Vk3tR;D5c`)n%=d!J2!|FiW6?fkWj3>;RO#1vjI+=SM;=uA0jjy Gp8p@8_^@mM literal 0 HcmV?d00001 diff --git a/wrappers/Delphi/log14dec2015.txt b/wrappers/Delphi/log14dec2015.txt new file mode 100644 index 00000000..c5b7f9ea --- /dev/null +++ b/wrappers/Delphi/log14dec2015.txt @@ -0,0 +1 @@ +Some more examples. \ No newline at end of file diff --git a/wrappers/Delphi/project1.dpr b/wrappers/Delphi/project1.dpr new file mode 100644 index 00000000..6554a29d --- /dev/null +++ b/wrappers/Delphi/project1.dpr @@ -0,0 +1,20 @@ +program project1; +{$apptype console} + +uses + SysUtils, Windows, + cpIntf; + +var + h: Double; +begin + + { + Very simple example + Get the vapor enthalpy at a given pressure. + } + + h := PropsSI('H', 'P', 101e3, 'Q', 1, 'R22'); + writeln(format('h = %0.3f kJ/kg',[1e-3*h])); + readln; +end. diff --git a/wrappers/Delphi/project2.dpr b/wrappers/Delphi/project2.dpr new file mode 100644 index 00000000..b5a83f2a --- /dev/null +++ b/wrappers/Delphi/project2.dpr @@ -0,0 +1,41 @@ +program project2; +{$apptype console} + +uses + SysUtils, Windows, + cpIntf; + +var + T, h, p, D: Double; +begin + + { + This example comes from Ian Bell. + When I ran the original with Delphi, there were a few problems. + In my cpIntf interface, the fpu exceptions are disabled + and Ian's example works fine. + } + + Writeln('FLUID STATE INDEPENDENT INPUTS'); + + Writeln('TWO PHASE INPUTS (Pressure)'); + Writeln(Format('Density of saturated liquid Propane at 101325 Pa: %g kg/m^3', [PropsSI('D', 'P', 101325, 'Q', 0, 'Propane')])); + Writeln(Format('Density of saturated vapor R290 at 101325 Pa: %g kg/m^3'+ sLineBreak, [PropsSI('D', 'P', 101325, 'Q', 1, 'R290')])); + + Writeln('TWO PHASE INPUTS (Temperature)'); + Writeln(Format('Density of saturated liquid Propane at 300 K: %g kg/m^3', [PropsSI('D', 'T', 300, 'Q', 0, 'Propane')])); + Writeln(Format('Density of saturated vapor R290 at 300 K: %g kg/m^3' + sLineBreak, [PropsSI('D', 'T', 300, 'Q', 1, 'R290')])); + + Writeln('SINGLE PHASE CYCLE (Propane)'); + p := PropsSI('P', 'T', 300, 'D', 1, 'Propane'); + h := PropsSI('H', 'T', 300, 'D', 1, 'Propane'); + Writeln(Format('T,D -> P,H : 300,1 -> %g,%g', [p, h])); + T := PropsSI('T', 'P', p, 'H', h, 'Propane'); + D := PropsSI('D', 'P', p, 'H', h, 'Propane'); + Writeln(Format('P,H -> T,D : %g, %g -> %g, %g' + sLineBreak, [p, h, T, D])); + + Writeln('************ HUMID AIR PROPERTIES *************' + sLineBreak); + Writeln(Format('Humidity ratio of 50%% rel. hum. air at 300 K, 101.325 kPa: %g kg_w/kg_da', [HAPropsSI('W', 'T', 300, 'P', 101325, 'R', 0.5)])); + Writeln(Format('Relative humidity from last calculation: %g (fractional)', [HAPropsSI('R', 'T', 300, 'P', 101325, 'W', HAPropsSI('W', 'T', 300, 'P', 101325, 'R', 0.5))])); + readln; +end. diff --git a/wrappers/Delphi/project3.dpr b/wrappers/Delphi/project3.dpr new file mode 100644 index 00000000..10549d89 --- /dev/null +++ b/wrappers/Delphi/project3.dpr @@ -0,0 +1,19 @@ +program project3; +{$apptype console} + +uses + SysUtils, Windows, + cpIntf; + +var + res: AnsiString; + T: Double; +begin + SetLength(res, 1024); + get_global_param_string('FluidsList', PAnsiChar(res), 1024); + writeln(res); + + T := PropsSI('T', 'P', 4.7e6, 'H', 330e3, 'R22')-273.15; + writeln(T:6:2); + readln; +end. \ No newline at end of file diff --git a/wrappers/Delphi/project4.png b/wrappers/Delphi/project4.png new file mode 100644 index 0000000000000000000000000000000000000000..94afac749f7fa9f9434b9852db7f9eb72dea0b9c GIT binary patch literal 15417 zcmZv?cR1DmA3tmqWp*+;#z9W9IY{!kLMEn^oblP5iJo84i2e;yzDa^96UW79Nd^|cwnSaq^}SB z;&ObX?fCGGnX#jly&aRfm8}_$GWdh<9+Rw@DHA_}Pml>AB+7SBR8WM86Ty!_d~(10 z1neVpR8W3II88!!^#)lAv*{2Ry8cRD#{mb2tQq@*+h+gu1sJ?y@j&?j4o*=R@u~4u z92~K51=$Dcu48KnZeOT|5*AN34thKUHhy{tBzexW2-q7;DVg8>DDnAatXXj!=8iKO zsrg8D@EYn$fFm5mR80JqOS$CQJu9;y-)kM#N-u0QA6*H-d)qPJzc_d@>9J_4I-c*5 zyPhwqF+II7exPT_ zWPhPIo6j#u;q}z2pJEJ&^_Jn2ADnc9@@?c$WFs$WO3Ex{xm)UZ&!61jt=}D^4dEF} zyoQ5wLyVaz;4J@U{Bk+Fiq)OIbImHHv@2O?Hm+%LUB#j&ORt(bTC2iHb?RTI!-{6B zZB2#5#Z>8!<^*OF&j(&SQ0~lqqE5l_S`iXWfx{&JCI@#@c8#G!__5IYz45mEaY?(i z@*z*NhxbGAayIm^$2CE?r%%PG zaHMrmoAj1zRRLK=@hT@Ox2XqFgaP9|C%M(Qrqw^994Rcg=+*mCc6a>Q##F6>zT)CA zDQZU}xdIjwr{8CpcZ?Hncs_k_dt2xApV3Tjlg8HIx^;%3<`Go!Hyn75Ba2M?@N(pR zU&dom0$=<+Wyb!n#kqi62HJI2-LoqUaSbNB6J~IWvZ(|4&fhfoA!@fK;7WRjbjI6X z!~(WTPD0|HI)7M6$f>NslOlUsHBh_P%x2a;8H)3p{UC zpZuCKypSJtSRsF>Ustb@ESI$)>a#>X;<=o?J}vI_Rauf#R2^CC@+Qfl%RGOoaA8r=>-|+X-5j6OG!}an)dS*59;MStJRAyzQ(5vqA%`d2JLR@|MNTUl zNn^*cN`<0?MI^q59X7YUxL5IuClZCZb%^z67z z%>H=3)kd;r@snY6V#YE&)M|Ob7^9Q#zb5Kf`Sj6v#9K`_c6H_3DcS zXE>5w)={|764RV^QeU38bohQ=YhFcI)ax*!-QSS@BEH%5xB*dJD6e`P+C#qKWog-i z?_aad=%}yPkhETXB&K3`(n6zkTIZ>GhGIj~PY!PI!=D)5lSd0Td~I%d1T!%I4!=tL zp6RdCEHNG3{nC5)sBW;osiVYU(xS{OxBg=JvUAvsuDm>N?4HH1K%K`%#9Auqb=5lg z2MTR=NSn0XwM=e$HvXE66h;0I8R1uRX`>+-#B4mCWo8|n%4wnEjy)e{3Fy6lhc0Z? z{QcdV7!>Fzg{bVT_ZwNSS^4B~a;7AT@;LVNSx}z#K0fwI+FQHeOiHM>3{OV89(-k} zN0uIt(TNTTd6ur>S=$YJdD_4Tgy+*xO^ww-GZ@ z82P4L9cUuQXEGw%KG0j1QEyYXes^qqNO}(i3qH$RJhuB6`zfK%>k!tbQ!hnV`%*S6_xvl0$z?hjm?~^nqZu=VM8_ z+NTZs2R1uz1|+s}jdf~b7!z$%KXLBuPW()#-ETP>l6@Smoc!#C%v2y(LmvEx>gVE6 z-Ud?IZ%?yJMDahpZ0y)yuIfY<04s7TGOchtqwM?hR>L%&*rknR=uG7G=;8c$tIz>^ z?fuF7Z{o&LjMUG@P@irA_8RpThAPoJzIc=3@>RfP@mnwZ#N^7jsMiRop+~{V$bFZ6 z#EhAivIRBcWH?!>y84{U(tuCx3t5GTk+-x$+A}hICVC_8pKrj2g$7sTcn94drxDXt za4kE}vWCILcKiFh1oYPPe&1nc)S{TKoM}MAJWf6fWD#@vxO(jVTr!B!#f;l0)wmW( zOl?b$uTphd{L~XY-0bYp38=|;o*p~kRPBgLIG?Bz+NeDlFDmti^{C~G_N$vW^kY;O zcxrEJ#ECe3o%3AjTEWHg`(WJ*nW>T}N^Os2xtWTv$9d_?Wer8P$S`CxxuW%gUmH zcVqE^%%qo=FY)v-)f2y?!&9m~)Pe%~yNN z8!+mE1fFqWT}4%|nqL(cG$QW@4Tglb7s$m2Gm1Z=yn05fd=iwBqStyTpq1t+B5*@?MG+#G#=w^tM4TZ@wu zjZDCPW9zTmKZJ1F)pY2_#$|s#J6m1r$&0B{o1e&$N>!e>l5N=j86`Jr%kL}5BpHPb{^|Poi z_P6;*RDXEJLx>NeLb)b%+$}8&ANtqW1Sk-ys%)%oA0>?V*jaqy6(3of7BalZnBO>0 ze^P3(UfwaOk0B#|e@l;uI?rZN7m+$zl%HK+1Sfj9^pai&dUrkek2PT= zFBgUR?n`~2q=bt1<9VA`7go1^%T_>~jy*Q&JoGLKm&Lc)bxhh*)$@63cVf~W@0%@E zFi)Pa8Z77}D+1aJ{;US5EyqR$Eay~@KZw&Z+s~_FDoGbuvn<6)|DL1ZWIk!KFEcTunVX%% zfrYOox+fflnpXRnirZvVend=-?Q2y1y^uT{-M5SgZ{RX$F6fj+{&z?LB{sFZT`5d84rCVYuFOMV6kA& z7mvxhkFIva8Wc-RIbO2?x14js4x_TYrn$aHJTvi~7xn4I{YS?r7!1QF;1S&4+EsgWPWIW2n%N$oD55G0$L+!-@OK_UPoSVoi;Yx7LEn#`1Ah!esroqv{^Pi?+6WGI)-i z$t=czk@mIsmU}ksg*sKAGsb#JeY(G_;5=39RDZ z+80|ei$2RSmP>F8BDsjDO%%Jx)Gb|@naIt4QXj^hz%;%6B19d&qH)dc9cesup3XQI zg?+tKf02`V{v4VqK>nis)mzEe7=4G9Z+%)~wA?sl#r>=?9VK=SKN31Zdpts#n_jPm{#ao5GL<<3-#_{B1{@8v$z8is1C<3g@_;#%SrKWOV#`x zQxWo6VSEwec-2X0t5`CXKb4la_7%m?i0>4)Z1st~FoEBDg1Gtn`qe9=GatBzJQ{p= zr(o)hRo)g0o!s(#jFs3j8oo4eYs#3aK_MhzxLKgj0F^lE_9|qRDAKTAI>dd^-Gkxi z<-i6(6xU;A#p>hAR#oFR_Gfn)5hkNct@^0@7G7anOecee`}JhPB4vmifR zb6Hz6HT>csICSt>WRp7IDvJEEd5`Fc;M;;_d%07LD(3^DFEx(g-5Zu)eUUp4^OwXn zzI^)fG0we8OCUL$`15qb*8_^ZGp*rHRYF){f^c5UGfk^%vg`NrJloZ>OzWKO6WsI* zKS9U5ncn?U#2=e}E&QXZ{_XDXht2lnA})VQMcEC<=nVoELo=SllHbklVt)8!z7WbSSwgc_55n*#hMqm8NBF$$ zFXw-nGE}KT&whl2%ob|#?{Hy`dr=GlKc36o*3GT4J8i9>e(teYF-d-ZV)NAAgPy*B zuW_>B%@@Y~sojinhNNEue?NZj?oOI`^RwZ;&#Y;rq=ngRml>%EMuFP^>sliw(tKQV z&HRV@pDx}ScB$SSH-4BBuRSuHU67HIVfN6gZWr>mOzmvh)>O+DR#J?b%8G^yx)U!g z(b=7sTBJ&pcty|IbdT-*j7-@JHV(x*>mZju$Q$+hbYG+;-Q}j%e_$#nV|bosLavHwCZh~FZ$aIwo$pV;vL^! zn9b6>V$V?ae%h0mH5D&5k-Py+q-p@f8*t9tiF}C+tW5w zOlZ~}aT2WDFRlHqALpf`+q3QUgJaok`^%K~--a{0l+MbF-f~|e!qxE{{-yv|YMbfg zhWeG2(3YigQnsc^Un*0o4TsNtV{CX7AykFVq0iu*s4jDAv;9{N)4`8Ehr|y#tnRLp zKiQZRQ9#`d!IIaex~t5n6Pgq?g*(t}AIx!%pOYWpnD_vU+9 zgPxc=)mMwFQ5!$ZRYpbyz6hVa9n)WDIQG&{hRIp2TQyh<_tGiM^E?;C82E^-4^gIH z9ox56ZS%DbiBvquEoVG-qz+GcaeFyd%G33ef!v98K`GUC{YbT9phVEfQXs9^{(jKH zzRs_$md^9npCw(+Nk323*{3Oe(uk`IZz&Iqw(6lRC>6|`o!z&Ra%`?1fF+&nteoV} zD2KHes3+~%H>5lX;9uEHB0lhG7xEQbU!JQd=H#`%xSAVSc}sn(bV26K`fH5G?x9`u zo7ta9n(T=IqvO9q(vV?p066m0L49 zc?$%4FZCL3PLOKzJ?r)tI8oAn6}G#8v53(^b!Fb0=HRFJcs=c|q0|edy2#Ilx3|YY z2I250$Epc6aEoj(K>HDVjQFS*mC(@Zd=h;^FvwWBaEyQ8I7~GvwV8Eta`EZ{c9EjC z?{xC1oadr+Wh~6TYI$S9bI(366%tLEfPBfmFTE$F`_hsF{WQ({?n^6<(-&;kdAz%~ zh&@wRGOjNP54+?WYMmy9y!Yaje7$w%{EM!9!&1M-E03Plq9-XTSg5Dono8MiJEU22 z>sCTyoz(1Sw$FQRYW7+Rj=y97YDINt_M0`RF0H>wlq!D|bFwdHVRjsGRFUYt^0he4 zbJPEO+WSIL>Sd8NEmFee-4wfMz{3v?g_-nJ)py?*IOmzRBVXP68u9av)3=fI=|;}E zHIKDh?|!$sSa=-C{$Z2w`NQ2VP_=aTUd$za@su;B=b2(fMan|xas~I` z7Tb`TVqfltPQC7}>_BS@LD_bxf6C?e$?s1Vy`C@ zN_oJ}jxEIfMA;C3Qi>+asL;~V@+4?Dd=+p!^i&xImr`{_G-PCCXV^acP?qwf_HZ}p zZsD}SsbOmmrSRsAT3c8{IyEn8b?#dG^?~XST!vC-#gE0^mQgQr*p=%}ZyJge)zqCy zI0-7*YSlPWt?MK{%8pVL>a07mP|%8g9c4=8POy< za!)*G5;OQu4fY*1G7F-=%%;!h&?+WEGjE2~Rm-il7N@QMswjH(;LYsWr3NfJ7CxI2 z^^hS_^)RYhN+jOPO?g%1s;ogTvawb3*7?waD7ZRYd0aQMYdxcz!-98o?8O-(n(d40 zS&L$YOQO%&Gdkz4o01c3EfrJaslqF}bcH!x7Tr|d_h=-Rs(rUr5;>lGh@TC2zIhBX zc8;r*>pC<&GU5(I40NTY!)CTCC0q>zr<>nMw}y*&4pf%zr&JZnD|*hGV#e=U!zE91 zQz!~(glF0woBts$3QD{2dU-ijGwJM?)Y|I#o`hFD?=y9ggUO=-FBgNd!i(sW^~0%p zLmvm9q{7vPqaAC_aVMXOodutoB@Z8olMg;tR3U7X?(bJN=mrKi9>RGHe5NC3Sk(AZ zSMyXP#Z=STkm@S*_Z@B7m0Y+d963azFfxT(^7?u~5Nu64{CdlBNLs7%dTIgrJ(7z) zQyW^1<2f1$jhS5$FGuqp*`psnD?IJaOBOYX z=LB*z)GnKL*qfb=845-`R<+g8sm202+t=MPz1AzMo6EB7%u5IHoOe_W*0w3=M4nNa zD2sHC3!2LfJ#WyjoMF(Y^u!o*9aVO$vbB|XW-I;q(6?$}E%Tm~XQG5ZF~D`6QXRIs zsAHYNnOH4lq~lG>_Ps=m_b`7F)tu?bAhr?%%FD{1rCu$+^&k@ZE?;PO-uOMt$Kgb! zD!n=WgXpT~^uvai^cN+#2l`706O4?y+zz>xm#5qU@9L^sOQK$V#lb%3!TE7V`MA%w zgZ+(-y0sb)`?L9az54RPkz4zFr@Qrb7tAn>#E7Tkg39^)(#EOAz^!u`$(k2Ci;9z& zy@L=ZI#s6|(U2rAdArDEt{k@IZ?lnBBjj6ROIf(K7>o@bPB`gYx_i&)@ky4W&nxq! z>pxwTzKr{%($+dUH*6_afcp5#;b*VbuGKxGtxpY*j|H~$K6}6Uq^e9852CtE*kx^; zI>{yXyM``~+qw;p2S^i~cTb1A;~VPI7KEH9c0&?`yu2)WcsJ_*5Z6?DS-UKN$YZU| zWyt4cn+BuXe$d5EyZ!lroaBySG;mujs89NWLrC>!>d1-OS>u)%WyQWQ1e!NsR;lh4L<6?6+Osae- zh|%r1=3=GY{w$2e@T^m3`oeJcsx!Cw_4=)gM!#tbkWggNGwsMQP_h zTCLHZ%{8ZXS?fN4s4$Gy{mx2?KmHrmb$Tpk;e0&0`@~16ZlKLvf6GNiE$d?PbT6#y zXl%OcWXw>==cq8QVRw4LdyCiH>%1YD%y7JcGYT@avdnEt^pdWoeAJMVm!lM>!P@Vq ztJ0%`Lv&z&6UT@i6oj`vXcP6h)UA72Ib3D@l$cT5VX@W#7Y(UQKD5spg61u&p8b6! zR`81-SyayUqYM_Oe(-6GJ?}-4!;)Jwk8k*41W7i_Ws_^{p{6}!&6|~25Xg3}EQeNb z-pQENP_|4DJJ8;0e?@c1Tp4FY7Rg58EFin$0cP zwE#^YmM;BaoZrEVR`op${5xB>pD^qwxaA?ta3P}ljqBBYiT63(2v|EG0 z_@MiA^yk-^+K63}FQ|(%Z5YYo;P~P}Avie6ILIqFIBeKq9HReYSo#+-Ptows6wr%s zTn;{ymWRcy3|>B7aIoB0`)e=CVoE$lxIs^t6b^*+T-^?X$qmJxjZCFgy`H^an1x`* z!NEMf1HWqqFMEy#-8#PS8fw^UcQ5Z!FACFMlOy26u97c1Mrlw{d4X4<5^{DSXIy_5 z`K!eu_Q_+^Vb}|y*^e3f1SV~35bU^rO|i=&#`Yi&k9#CK$uEzNERdYZeuYdA1NRiE z<$EYkrV{yt+)JOke1$w!lH6|X>$`{DvZ#}=B(X0dn~ejVT}q?pmoGl`x#ZV#LC|((dzu1iL0aMbBilrF>#2Jq_B`TfD4%VF zD|VQGZ5)i?e7*uca44~}I9IXnkjBNn^(l7i|Ass6o6O7(N^2Bxb=LKbPy5`$VG_Vt zVK8mkejKksP6-~zuhNAqMGdymWnFlJVq5s<@$qp((N~mkJZXkTR24B_s;k|=zMyFq z>2>6`e7C+>5-{d)LWIe>42|l$gVpo0CV7VTDz_6+aJySF2eOpBVoez4ktuw0(hUV| zw!>(|$Dj2gpYIK(f$O%V%g|qY8bX&Mw|92gAf}@s!WKtRsZz+TLN6%x&ac@Je~V}( zR+H;BkcC2q+z6fhiZPUfR!9@}+MD-N7g{vX+C$*LGTZK2D)KHpKHXjiv1bh7RUN1j zE%bNnvdB{yU)Mc|$7slC=?ly%3!I+j&ZGV^NER<+AOx3*T)iR;1yO^Jp+1Z#m#p;i zaXSD-nR{P)8j6D0P&>nyF~3^6Q}y42I@;3HOS+bkr92z_qC6Ra3b$uST^LnYo+^SO z2{ZDFuV*90aTRe5B&&ifQT2s;TW%tdNw^S}Lv%$}?WlHQ0wtYMt)~>*Ijk>uz=r33 z5Qkf1C~{ufRLaHRuD{*1I6tVMd@d>I%I)?57P;dX@kochu^=GSIb3vX%?-HSR7twT zb1tua<8wMnoVj;#k|{mc1g);|&DgYsaZia_jm7zyYVOuIl(lURuLNmoot-V3Nw+#`Ek9>gQ1TX0v{H}pccBni1L2%nEievG+nOhdz>VJuc*waNt72>uOgwvO1EqQG!ObDE z%NeH=lyS8`w5auRQenQE*24%xO9-rNGkqC3XurZkF7aVp*@k}Uo(cTH4cSK#&hVR7 zp@X!1TZKUY6`>I*N~~7mBkwR@1-$C=g#^okvu>sobU(Xe@R7^!zi(W)CO$qIYL;%l zE}8FaBU|sXn z5Ax6?5|Ym^cieh8_>`vXbqWD{U=sqaYZkiua|4BC#8VzY=M+46U=t1?4t(FZ8FbBN zUWW7;*Y$sNu_?^(s2gD-jbxdhfw$xIGs%!5|2MgLN8|sP#1XP`0B6NuaNvQAOYvfg zHjGe6;}cQ+uZ<`czGl?%DIKC;NQLq4O(;Y<;(KR08Nx(CNibF7J9-_d&JO4~{pq_asKK9)8&aE#lt_vwq`6++~@m*EQ7OI^`I zCOYiipOnrd<)cW@*JzlUMPIg|{u%{B($KrG`VYYnP9WFJkH)vk)0+7KFGH{QRA{1X zauOMh4=dRGAWhGUCk26=iV^K7%_F$iCr(wgww;kIB1(Mm8w?&3Y>X`JpkEr_@FP9R znh2oygAafEdJYq?w)oAH1i>6J--t4zKI$_TLvk_x;|DOVb@ml7ESYxA!CTWfVUiRYzUP_&6J1P~to^?{MBJa^R)b_JyX7DWN4l(7;{|2R?o z4F*Ft0#3jICu9YIsEFE2$j13huAqfd7cvIZ1tZdcpg6WYGt~Xa(f|vZ0h_-(!7xA} z{rFh6^dbJyf7=4GMSy%4aS=S zxTSCf`R>J^$JqohWZQqzzy6kN%?PvjA4x>dEeT<*c$aGbZtUSmFDVjz^&fqL1Tgov z5K~W*mgc^H^(Hk3)%k#y5i%zFFtNkzj@Z%=8+gq4t>Y5&5%cTxcjaf?1u; z5lVtYLj=&;zvQQzv@|CJj4(vtYK;d$P07u!|0%$_jxkz$;e9%lskV{qSBAxJcc6R* zfDan;^3%6NpqnvlG*C#+6;ZD1qG%W}glLg|m&OfLVkidn7ckD+m#otTo9`UkCTUe-K3F3(0-Ih0JqJx39Ry zXL1!VgumDLYI3u+X&{7VNvsSE;Po1tfro$r7)7G}WC?Vsh5!sd?=^104g-v9Jg0|y zu>w@-z=LU$i00u2()1Nq98GEuSs|KCggJ*f7CA=^9H1 zL7Gry|4CP&*I2gK_~(C=l7L{LxqK*cf+j+aYX-nEZgTTtaQ7diqD5gNnC&T6DpY~Iw*ubxmo*nV4N(_a%1E%8AIaWj*D!dKnT$PRiJj#LBYT#u&nSO zI75n(^1R1N`Q9P|i7;V~eId)aDfIofIJD@oALM}_ndueS-2hTbCbcqN@S74gg(Xm_vP`*?7=?P)olSY&XcFZwW_#Xti4u^lWHp0~Uk>wI1mFU$% zEXmK?9=-L0>=20NF+llVcilH>Z+a4JO^EEG0t%Ged=F6O@540bZiQWiKcbjRgjB*e zhxYOPK_UDTZfX#rV<~!#ffcYf0kBWm$h&P#4dr76di55f_7>1tdw%=dEH}B)AV0!{ zK{{xN0G@f}pU_R_|F~O~JqTL*CuegyM{RtB35Z#-@b-%Urb*`*%khuuKp;mPcqY-M zdcUEI4@Z)#Pg;&l*tuDCf?t>tpKAEJKSclsK*FEpC z8dW<*FG`M>HX-~VC4{1RG$1U#w11tSye%7ohb8YUj4-QyWH$JsO1I7F`Zj2-q~A~H zo*Y~E7x2LmCauyzg81;v8vLT7JTvu3mPR?MigxbM3q=CIdcsiYh;A! z@+Gsmj#Og3OVdYGTaq~u_1lq{J&+h3OWJF!tVajSqyhk-&-17uh~@NI2f)gix7>aZ z0UXghC;waUEo)!8e{4!!N^ZU~Ry+H_bw&`E@Y3b=IrbWd6!A1zN4t78l3l98JzAi+ zTqC?2fqg2xS;z`C$Na8fNvdx|6%iuu;W@@K zt^1tLK}RUrGYS9Gx?`Yq#jdnP-C3QnuC@;U*rz12hx|kgADwGU?l;tNQSlu#-0hz0wGGQZlyt-@E<1-N(}hnUV>(W9Jw0McTSU1w-AAUnL-{7U=TNyPvD>2 zV37W)4)bp8uWJ8nca^XI3Fwr5q zfQlQ?q8ua4J%30^5Y`+<)AA%u5;!BN-*5Rra)FrvMf?b)oZA&qe{}F2WEk2kt~1Pk zjW9|k|A+>9h8e|&W3m4YKtmuK**Nft4?cU1HUIew;72m)(Xkr;#0WguF1U~Al29}Z zja?Y{Zz1qS1LVjq1lF-o9DCdQ2T8G{UO}R7p<}%fCV~GFiOo{)!!~L@6SN-$xVTJ4 z$5`7p#+Y!H8&qH=F+;l$9y-<*_}a#S189-CA7mB}MvIH=x(@)s75ePpnyv9F3SxR4 z4JBUez1C|ye;HB9y%S=Fd$j@AM2$#=089nJ1vjG@_93xfWzGB`Y5ru&xNvg@0Htnc zQI<(mn;SP3>sdIip`kFe<&{MQIS7K7fBHe-Z?OyKaWCx_dNr{U0Z^LoAL*36DeTG3 zU;YJFoCGl1E6A?v|HN;CNPS?0`C{Y?!DnFP5*e*{vU{rDf4^PE2-6`QMBqoZ<9}(| z#eqA+6n_+%I!MvlG|)aKgo!suA6d+(-&~7N4>0ir!J>2!pnB&aLC6n{0bK%Q9uC^_ z#v(#1))*7%-&g4`X<`e~AY##bz(a6?FwOM)cU1Ouv^KSPq&@W_!X7K`R567YW{^7aWJG%&Gb<6Pz6QxgBMN&-;C~h^zSs+_Y3iRx{nG^I$Q=ZDcDh z5X{ItK4{-lFb8zFiCnibsqLE$ZuUnY$=@vy$J9gY_mWx8(|I~1kJyN z>?q}gXh-`DOJiuEeH3U*9w=YWzsy1ipkc3ZcRLEQ@&kjJ%&CKQ^MsdQk7a;nlwnWLy5hkEBB1h-<<+?U z4&_1!e5?tD^oIbC8$+og4|nh8&JB+oVmtb1(TWGR?oC<3%H=QB%}m-VBJ@}6TCx-v zT=#ZCfbMg_J#zF{>7Y!1NXq0j_^|~0pZc)Y$sOX#k-NW_h}ZM3GnxoP40Mk8nA2~d zudN}m5hm)-oD-T<9%ADs~ z*{2cR&;GzfU_4@ztIV2;;lL9(`8big(nhrIW6mzC#jP`0Am+yp3P;2X*I0tiRABgRlH zxt~C)4efJ8Fk7PUnSg?vw+bT&7q|8PiU%)#X8m3C<9DRMrlV;hxUmEmc_jqIP4Jv> z(_zfJ`z>wAfq-Cc%b?d1^Dsx*1ncqx=v&R=>Sa# zOU4}e*I+rj|4tHv_KEp>*d3bWMnsN*jQ$?TCyX#RX(puhqRon3)t*6*?lFsY5iH)I z2PoFS`MIg0^ziQ%rIMM;@Vlz8yN}z~RWc9==2&9n6~fERVXhZY2mIKpe^}P^9KkG% zwf-ORkUnE`>7d_O2hMB{_c8_HDWpjmiH@E3P$`C0@q>Fn$~1xH3VDtxCLIs{HU*pm zbY0_$7&-hd70@5BWbuYL-w-M>?BJ@@+=A=Mk)vt9Hy`h|g9RxPyI-8IAN8j#uf3}m zksa~{3W1q}+DYPzX%tIPET4(=+8_b)3J4*8%k76O3j5QECOcch$&s=_07Bj}itvL1 zTP}nQzAnBkMhI#PV6hbX9*Fi{Ib&{@f877z_GcX~DO}QkpN8cis0>P>`IsZRe|R!N z;N~Qb*Ko1s{h}u9a`GJx7TuqX%b{7KAhR4H@(p&T>qglc{q$W)JgwMvr zkIZC0+5cJ@z$+elq~igEf~JKOhv{{W31)c`kM`9Et5}QuDxskcM@9$^6VY87zC%91 zBz6;7&V0BRKF*ydW#~nyKli?BZ6|E3mG4xqHkyyKU&NdgM|wuRE)4oAVj#!yU3s{c zax=N}$K0mZpg8NxT82nHbEJPmY476QgQrMM^(C_Bb_*ya`?3lOn&>2y`zB^s$ZqUt z3>ypbTy9_&Ox5VnUPqb87Q}&)tgp31*rFSIKatl^=^SrBVm(PEZ|mz5v}r*dUg#29 zpT7*di(EVl{nbRpa1^fS@+MR2fAgR$ z0CwIn#e~D{#-#!TXF*jClyIq%dJjCEWPhZ*0Ckdo#oAU>6MW=K7fb48x%Lh&97*FF zk7Ah6!M|KzkNPWRqz&a;zkJFaBU#SxI1|`Z92~#-&U+oyTX9_9g3>mq-!@W!x;1Lc zKn=%N+!rE1*MaIBmJog8K22z`e~`SiA2DEGw-GU==q;u7=1H6=wp5$gg!)X%H&bba zFJqqAKgb4j6=&{q4tfTeejD>D3;fru(c|eq6n51vGGQKVE-nHuXGoh__uXGvPper> zW4i+m2ov*%BrgA-E=FRoLlM*xS>$Dk(52QWA)~%rMEBp7B&kG*sg@qP+ML$ zR{)Bk1I1ixaZpH#?RESdA335?y)TL*egE5O!$F%p=67G+!^|6f|5sB37pZhwLx&^H zr9C8I(zrOaPKnm;{6_b>dz;VO5;W>h5ZE%dsYW~MwLZKBHFT{8GE{PuXbJDu7bJkc zr4zYBQTPz8q2WfN%RVgXoEHaDP5OqKJaJjf|J&q{@2I6pGfSP-$Pj08h=y1cLaAQL zp6tD9)ALHdnl2pL^V?tGG-XBS&0)*c!Rd2I4+dqy*UMnk?*#J``dXwQAphx}6SsqG7S z$Pi>qmV=Pf`T_6V`9|JQ`P;NUkLZ&}HAz+GI>l$h$I|gpr}A9m-%Iek_3r#8e%u&G zkZ1l%!{#L>{6qt-S4(T7Uw0<;nhPD<4Ctw~8+#d#2OHq8a7U6z4*Gu}`W1iuzR98g zuMI9W&Fi;wVb7l6+G=c{E*>l!)I?J8S#NvL>uhd`Lv0T2YTB>t(~2FE zJeKyY)y*-HUc3jvdFhbOeB_Tk4jpeDq~nHblj8LfL41zq>(pE00%z|z*l#yDUn^-b zeZEqRv8Sd+b{SWOEH1)gY%q~>Mw?Yk?@45MzUJ-7>-?3?RxlIsALv}>yW%Nw?I`5- zsk_Ez2)mNNgV}2{jk}c;zekLT40nDHsI~7ANtQj* zDg51fT{!GyFR5da*(~2GR%1uq{!p3z%`5>|-JHRKLHKm)to{ny_#`D(J)R<;AI*J_ zgnKE1hN9)#L-7>GLYhH(Ek7RUTZ@tmp&_eFFDDKZaU8fOR0T@hp0zM&v$ofiE0|M^9u6 IWQ^YaKbTAWXaE2J literal 0 HcmV?d00001 diff --git a/wrappers/Delphi/project6.dpr b/wrappers/Delphi/project6.dpr new file mode 100644 index 00000000..044e145c --- /dev/null +++ b/wrappers/Delphi/project6.dpr @@ -0,0 +1,32 @@ +program project6; +{$apptype console} + +{ Not using cpIntf + This is to demo the problem when the exception is not disabled. + It happens with the Delphi compiler. +} + +function PropsSI(spec: PAnsiChar; + prop1: PAnsiChar; val1: Double; + prop2: PAnsiChar; val2: Double; + ref: PAnsiChar): Double; stdcall; + external 'CoolProp.dll' name '_PropsSI@32'; + +const + MCW_EM = Word($133f); // Disable all fpu exceptions +var + Saved8087CW: Word; + p, h, t: double; +begin + Saved8087CW := Default8087CW; + Set8087CW(MCW_EM); + h := 330; + p := 4.3; // no problem + t := PropsSI('T', 'P', 1e6*p, 'H', 1e3*h, 'R22'); + writeln(t); + p := 4.4; // crash if fpu not disabled + t := PropsSI('T', 'P', 1e6*p, 'H', 1e3*h, 'R22'); + Set8087CW(Saved8087CW); + writeln(t); + readln; +end.