Delphi32- How to avoid many concat s of paths

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:
corinarus din Cluj

Femeie
23 ani
Cluj
cauta Barbat
24 - 60 ani

lisp2arx / Delphi , InnoPascal / Delphi32- How to avoid many concat/s of paths?

Autor

Mesaj

Pagini: 1

zauchan
Moderator

Inregistrat: acum 13 ani
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 avoid many concat/s paths? perhaps many concat/s paths you slow-down speed found this

36.6KB

Modificat de zauchan (acum 3 ani)

_______________________________________
psw: cea de la wjndowsXP gigabyte..

pus acum 3 ani

Pagini: 1

Mergi la