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:
Sabina din Bucuresti
Femeie
22 ani
Bucuresti
cauta Barbat
22 - 60 ani
lisp2arx / Delphi , InnoPascal / Delphi32- StrPas Alternative or Extended Strpas with other features  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 515
If you known the length of pchar, then you can use...

Code:

Procedure strpass(Var dest:string;locExtMax:pchar;extmax:Integer);
Begin
   dest:='';
   if (cardinal(locExtMax)<256) or (locExtMax^=#0) then exit else
    if (extmax<1) then dest:=strpas(locExtMax) else
       Begin setlength(dest,extmax + 253);
         Try
             CopyMemory(@Dest[1],locExtMax,ExtMax);
             delete(dest,extmax+1,255);
          Except 
                 dest:=strpas(locExtMax);
          End;
      End;
End;//off-strpass("")

Nadazuirea fara limiteMari in  Dumnezeu este pacat=https://youtu.be/cXhSadOHnMo
Impotrivirea fata de fapte=pacat.
Impotrivirea fata de adevar=pacat.

Code:

Function str_pas2(arrayeditstate:pchar;limcheck:integer):string;
Begin
    result:='';
    if (arrayeditstate=nil) or (arrayeditstate^=#0) then exit;
    if (limcheck<1) then limcheck:=strlen(arrayeditstate);
    SetString(result,arrayeditstate,limcheck);
End;



delphi32- strpas extended strpas with other features you known the length pchar, then you can

40.7KB

_______________________________________
pus acum 2 ani
   
Pagini: 1  

Mergi la