lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Nou pe simpatie:
ramona23 pe Simpatie.ro
 | Femeie
24 ani
Bucuresti
cauta Barbat
24 - 52 ani |
|
|
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
adminAdministratorDin: Bucharest
Postari: 523
|
|
Length-of (MyAnsiString) is 10.55Mb sizeof. Already I have strlen, and I do not need execute (strlen....)
How I can transform source to String, more Better?.
Type pdouble=^double;
Code:
Function strpasd(locExtMax:pchar;extmax:Integer):string;
Var dxf,nth,gap:integer; kGripEnd,kGripStart:pchar;
bCanExit:char;
Begin
result:='';if (locExtMax=nil) or (locExtMax^=#0) then exit;
if (extmax<1) then Begin result:=strpas(locExtMax);exit;End;
setlength(result,extmax);
kGripEnd:=@result[extmax];
nth:=0;
kGripStart:=@result[1];
gap:=extmax shr 3;
for dxf:=1 to gap do
Begin pdouble(kGripStart)^:=pdouble(@locExtMax[nth])^;
inc(nth,sizeof(double));
inc(kGripStart,sizeof(double));
End;
while (kGripStart<=kGripEnd) do
Begin bCanExit:=locExtMax[nth];
if (bCanExit=#0) then exit else kGripStart^:=bCanExit;
inc(nth);
inc(kGripStart);
End;
End;//off-strpasd("strpas cu verificare #0") |
_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf
|
|
| |
|
