lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..

Nou pe simpatie:
amy70 pe Simpatie.ro

Femeie
24 ani
Bucuresti
cauta Barbat
31 - 59 ani

lisp2arx Reguli Inregistrare Login PozeNu sunteti logat. Lista Forumurilor Pe Tematici

lisp2arx / Delphi, webdesign /

delphi32- Operator ?: from C++, inside Delphi

Pagini: 1

zauchan
Moderator
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 operators.C++.C#.Cs directly - Delphi, webdesign — delphi32- Operator ?: from C++, inside Delphi – poza de zauchan, in Delphi, webdesign · 44.7KB

_______________________________________
psw: cea de la wjndowsXP gigabyte..

Topicuri similare

Pagini: 1

Mergi la