lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Lista Forumurilor Pe Tematici
|
lisp2arx | Reguli | Inregistrare | Login
POZE LISP2ARX
Nu sunteti logat.
|
Nou pe simpatie:
iris22 pe Simpatie
 | Femeie
22 ani
Bucuresti
cauta Barbat
32 - 63 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 516
|
|
Rhe conditional operator ?:, also known as the ternary conditional operator, evaluates a Boolean expression and returns the result of one of the two expressions, depending on whether the Boolean expression evaluates to true or false, as the following example shows:
-> tempInCelsius < 20.0 ? "Cold." : "Perfect!";
Begin
Result:=a ? b : (c ? d : e);
End;
Code:
with j_d2l do
if (int[0]<>0) then
a349:=if_int(r20,320,
if_int(r11,311,
if_int(r18,318,if_int(r31,331,
if_int(r25,325,
if_int(r28,328,
if_int(r15,315,a349))))))); |
Code:
Function if_int(zeroone:wordbool;var1,var2:integer):integer;
Begin if_int:=var1;if (zeroone) then exit;if_int:=var2;exit;
winhlp32('Delphi3:=Nu functioneaza frmMainWnd=nil;bDummy :=
if_int(frmMainWnd=nil,7,frmMainWnd.BorderColor);');
End;
Function if_are(zeroone:boolean;var1,var2:ads_real):ads_real;
Begin if (zeroone) then result:=var1
else result:=var2;
End;
Function if_intl(tzxthen,tzxelse:integer;zeroone:wordbool):integer; Begin if_intl:=tzxthen;if (zeroone) then
exit;if_intl:=tzxelse;End;
Function if_string(accessCheck:boolean;const var1,var2:string):string;
Var angdir:integer;
Begin if accessCheck then if_string:=var1 else if_string:=var2;
angdir:=length(result);
result:=concat(result,#0#0#0);
SetLength(result,angdir);
End; |
66.8KB
_______________________________________
|
|
| pus acum 2 ani |
|
