Filehost.ro - gazduire fisiere
lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Nou pe simpatie:
roxigirl85 la Simpatie.ro
Femeie
25 ani
Bucuresti
cauta Barbat
30 - 46 ani
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
lisp2arx / Delphi , InnoPascal /

Delphi32- How to avoid many concat/s of paths?

 Pagini: 1  
#1
zauchan
Moderator
Postari: 180
Perhaps many concat/s of paths , You slow-down speed of Delphi.
With complex-projectDpr
I found this method.

Code:

Var
    ktoolvesa_enhance : Str63='c:\vlaxcompil\cl_aclayer\cobmpdcl\2021\f1enhanc.bmp';
    ktoolvesa_redcore : Str63= 'a:\vlaxcompil\0user\gimagex\a14redcore.bmp';
    ktoolvesa_jpegtop : Str63='a:\vlaxcompil\0user\gimagex\jc_pin25.jpg';
    ktoolfini_topovlex0ini:Str31='a:\vlaxcompil\bin\topovlex.ini';
    ktoolsize_asm25pin: Str48='a:\vlaxcompil\0user\minidump\asm_jc_pin25.h';
Str63='a:\vlaxcompil\0user\minidump\asm_noFunctionDefinition.lsp';
    ktoolsize_BootSect: Str48='a:\vlaxcompil\0user\initrd10.lsp';
    ktoolsize_asmjc18lda:Str48='a:\vlaxcompil\0user\minidump\asm_jc_lda18.lsp';
    ktoolsize_asmsaveqas:Str48='a:\vlaxcompil\0user\minidump\asm_saveqas.lsp';
    ktoolsize_eNoVarAlreadySetq:Str48='a:\vlaxcompil\0user\minidump\asm_varlist.txt';
    ktoolsize_asm10aro: Packed array[0..43] of AdChar='aa:\vlaxcompil\0user\minidump\asm_jc_aro10.h';
    ktoolsize_dupldc31: AnsiString='a:\vlaxcompil\0user\temp\dup_jc_ldc31.txt';
    ktoolsize_acrxth8 : AnsiString='a:\vlaxcompil\0user\minidump\asm_acrxt.h';
    ktoolsize_asm11ldc: Str48='a:\vlaxcompil\0user\minidump\asm_jc_ldc11.h';
//  ktoolsize_asm21ldc = EuModific40Pozitia2Caracter';
    ktoolsize_asm31ldc: Str48='a:\vlaxcompil\0user\minidump\asm_jc_ldc31.h';
    ktoolsize_asm25pin: Str48='a:\vlaxcompil\0user\minidump\asm_jc_pin25.h';
    ktoolsize_eNoFunctionDef: Str63='a:\vlaxcompil\0user\minidump\asm_noFunctionDefinition.lsp';
    ktoolsize_BootSect: Str48='a:\vlaxcompil\0user\initrd10.lsp';
    ktoolsize_asmjc18lda:Str48='a:\vlaxcompil\0user\minidump\asm_jc_lda18.lsp';
    ktoolsize_asmsaveqas:Str48='a:\vlaxcompil\0user\minidump\asm_saveqas.lsp';
    ktoolsize_eNoVarAlreadySetq:Str48='a:\vlaxcompil\0user\minidump\asm_varlist.txt';
    ktoolsize_asm10aro: Packed array[0..43] of AdChar='aa:\vlaxcompil\0user\minidump\asm_jc_aro10.h';

{--}

Function Bta_conv_clistene_dof:integer;
Var axlock:record h:boolean;end;
    actc:record h:integer;end;
Begin  ktoolvesa_desktop[1]:=con_systemdrive;
       ktoolvesa_jpegtop[1]:=con_systemdrive;
       kstarhome_goerror[1]:=con_systemdrive;
       Assert_one(364,'0');
       vl_file_forcedirectories(ktoolvesa_jpegtop,true);
       SetCursorPos(0,0);
       result:=clistene_osmode(jc_swapassword.isPincode25,con_systemdrive);
       axlock.h:OdDbDeepCloneFiler.hWndStatusbar<>0);
       actc.h:=clistene_imagehlt();
       if (result=RTCAN)and(axlock.h)and(clistene_get_VisibilityEdge1(actc.h)) then
       Begin  SendMessage(OdDbDeepCloneFiler.hWndStatusbar,SB_SETTEXT, 0,integer(pchar(Scho.a)));
             Scho.a:='';
             exit;
         End else
    if (result=RTCAN) then Begin
             Scho.a:='t364errorA'+ktoolvesa_desktop+')';
                ShowMessage(Scho.a);Exit;End else

    if (result<1)and(axlock.h)and(clistene_get_VisibilityEdge1(actc.h)) then
       Begin SendMessage(OdDbDeepCloneFiler.hWndStatusbar,SB_SETTEXT, 0,integer(pchar(coreslsp_t364f)));
             Exit;
      End;
    jc_swapassword.isPincode25:=aloword(result);
    result:=RTNORM;
End;

Delphi32- How to avoid many concat/s of paths? - Perhaps many concat/s of paths , You - Delphi , InnoPascal
Delphi32- How to avoid many concat/s of paths? – poza de zauchan, in Delphi , InnoPascal · 36.6KB


_______________________________________
psw: cea de la wjndowsXP gigabyte..
 
   

Topicuri similare

Pagini: 1  
Mergi la