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:
Profil Cristina02
Femeie
23 ani
Arges
cauta Barbat
26 - 80 ani
lisp2arx / Delphi, webdesign / delphi32- Operator ?: from C++, inside Delphi  
Autor
Mesaj Pagini: 1
zauchan
Moderator

Inregistrat: acum 13 ani
Postari: 180
Exists the operators.C++.C#.Cs directly inside sources Pascal?
I do not understand, Why the "kPosterizeEffect" speed-up myDelphiApp.exe
You found "kPosterizeEffect" inside attached.gif

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;

The Main problem, you cannot use if_int with function-call, because
Delphi32.exe execute all parameters of if_int.
Why If_int execute all-times dfn_image_clWhiteLtGray?>

Code:

RTFAIL:=if_int(bNegativeNormal<9,dfn_dimension_dwg(img),
                        if_int(bNegativeNormal>155,dfn_image_clWhiteLtGray()));



Code:

Function if_pch(accessCheck:boolean;var1,var2:pchar):pchar;
      Begin if accessCheck then if_pch:=var1 else if_pch:=var2;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- operator from c++, inside delphi exists the directly inside sources pascal?i not why the

44.7KB

_______________________________________
psw: cea de la wjndowsXP gigabyte..
pus acum 2 ani
   
Pagini: 1  

Mergi la