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:
iris22 Profile
Femeie
22 ani
Bucuresti
cauta Barbat
32 - 63 ani
lisp2arx / Delphi , InnoPascal / Delphi32 - PosEx or system.pos wiht position  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 516


Code:

//Inf=Delphi32 - PosEx or system.pos wiht position
Function Sho_PosInt(substr : ShortString;StartIndex:Integer;Const largeString : String;LimMax:Integer): Integer;
Var nlen,nth:Integer;
Begin Result:=RTCAN;
      if (length(LargeString)<1) then exit;
      Result:=RTREJ;
      if (length(substr)<1) then exit;
      if (StartIndex<1) then StartIndex:=1 else
      if (StartIndex>length(LargeString)) then
                  StartIndex:=1;
      if (LimMax<1) then LimMax:=kMaxInt;
      nth:=pos(substr,copy(LargeString,StartIndex,LimMax));
      result:=if_int(nth<1,0,StartIndex+nth);
End;



_______________________________________
pus acum 2 ani
   
Pagini: 1  

Mergi la