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:
sandra_19987 Profile
Femeie
24 ani
Neamt
cauta Barbat
23 - 48 ani
lisp2arx / Delphi , InnoPascal / Delphi32: If_int, if_str,  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 506
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;



delphi32: if_int, if_str, rhe operator ?:, also known the ternary operator, evaluates boolean

66.8KB


_______________________________________


pus acum 1 an
   
Pagini: 1  

Mergi la