Colectia de poze lisp2arx.3xforum.ro
Total 202 poze.

Inainte

 
set var inside vlisp (like 2.0 migration and        axlisp.lsp   copyright 1990,91,92    tonywindows.title=vla-AutoLispR14- Set Var inside VLisp (Like Variabile) AutoLISP/XLISP 2.0 migration and cross-language programming utilities. ; AXLISP.LSP Copyright 1990,91,92 Tony Tanzillo All Rights Reserved (defun increment (sym) (set sym (1+ (eval sym))) ) And it would have to be called thusly: (setq x 0) (increment (quote x)) Or just: (increment 'x) ; Examples of such are (setq), which does not evaluate its first, third, ; and all other odd-positioned arguments; (defun), which does not evaluate ; any of its arguments; (and), which does not evaluate any arguments that ; follow the first one that evaluates to nil. Have you ever looked at the ACAD14.CFG (Autocad Configuration) file? (setcfg "appdata/test/bolt" "M24") (setcfg "appdata/test/length "90") After (setcfg must come "appdata" followed by your application name, which must be unique. Following this is the variable tag and then the information you wish to store. If you open the ACAD14.CFG file, this is what the section will look like : {AppData/test} bolt=4 length=90 To retrieve this data you would use the following syntax : (setq a (getcfg "appdata/test/bolt")) (setq b (getcfg "appdata/test/length")) This would set a to "M24" and b to "90". Now this is great, I hear you say, but were would you use it. Here's a good example for you : ;Sub-function (defun register () (setq v1 (getcfg "AppData/CadKen/test")) (if (= v1 nil) (progn (setcfg "AppData/CadKen/test" "1") (setq v1 (getcfg "AppData/CadKen/test")) );progn );if (setq v2 5) (setq v1 (atoi v1)) (if (< v1 v2) (progn (setq v1 (+ v1 1)) (cond ((= v1 1) (setcfg "AppData/CadKen/test" "1")) ((= v1 2) (setcfg "AppData/CadKen/test" "2")) ((= v1 3) (setcfg "AppData/CadKen/test" "3")) ((= v1 4) (setcfg "AppData/CadKen/test" "4")) ((= v1 5) (setcfg "AppData/CadKen/test" "5")) );cond (setq v3 v1) (setq v3 (rtos (- v2 v1))) (alert (strcat "\n You Have " v3 " more Loadings Left")) (setq flagset T) );progn (progn (alert "\nEvalution Period has Expired \n Contact Kenny Ramage \n ndbe51d1@db.za \n For Licensed Copy") (setq flagset nil) );progn );if (princ) );defun (princ) ; A simple example of a macro, is a function that accepts a symbol and then ; increments the value assigned to the symbol and returns its value after ; it has been incremented. In order to do this, the calling function must ; receive the symbol, rather than its value. In AutoLISP here's how it would ; have to be done: Excerpt from Acad 2013 'AutoLISP Developer's Guide' (the last pdf version) pp. 10 Symbols and Variables AutoLISP uses symbols to refer to data. Symbol names are not case sensitive and may consist of any sequence of alphanumeric and notation characters, except the following: Characters restricted from symbol names ( (Open Parenthesis) ) (Close Parenthesis) . (Period) ' (Apostrophe) " (Quote Symbol) ; (Semicolon) A symbol name cannot consist only of numeric characters
13.08.202267.9KB
if you need to add package to your project, you can install the nuget package manager extension forIf you need to add package to your project, you can install the NuGet Package Manager extension for vscode and after that install your packages to your project like this. Press Ctrl+Shift+P Then select "Nuget Package Manager:Add Package" Enter package name Ex: EntityFramework select package name and version NuGet-Downloadinghttps://devblogs.microsoft.com/nuget/nuget-end-of-xp-support Use NUnrar, there is also a nuget package for easy installation. Install-Package nunrar
13.08.202236.4KB
re:i
RE:i "Eu am doctori la clinica mea pe care i-am adus de afară, studiau în străinătate. Sunt români şi le dau 4000-5000 pe lună. Ei mi-au spus despre aceste tratamente pentru că se făceau studii pe afară. Cel mai bun este ivermectina. Se găseşte doar la mine, acum în România. E din Ucraina, dar nu îl aduc eu. Îl cumpăr aici. Eu am ivermectină ser. Ivermectina pastilă e slabă. Este şi ieftină, cum ai vindeca un om cu 10 lei. Când a existat pe piaţa din România s-a luat imediat, la început. Acum nu mai există. Am doar eu. Ei vor să consume lumea Remdesivir pe care au dat zeci de milioane şi nu e bun pentru COVID. Ivermectina este cel mai bun tratament, pe lângă arbidol.
08.08.202252.4KB
400mb= 


 


how to download and install command & conquer: red alert 2 – yuri’s revenge the400MB= How to Download and Install Command & Conquer: Red Alert 2 – Yuri’s Revenge Trainer? Click the Download button. Download the Command & Conquer: Red Alert 2 – Yuri’s Revenge Trainer. Install the Trainer by clicking Next. Run Command & Conquer: Red Alert 2 – Yuri’s Revenge Trainer. Select Cheat Options and Activate. ;;; ;;;aqrit.cfg RealDDrawPath = AUTO BltMirror = 1 BltNoTearing = 1 ColorFix = 1 DisableHighDpiScaling = 1 FakeVsync = 1 FakeVsyncInterval = 1 ForceBltNoTearing = 1 ForceDirectDrawEmulation = 0 NoVideoMemory = 1 SingleProcAffinity = 1 ShowFPS = 0
08.08.202250.7KB

 
AutoCad2017
12.07.202273.6KB
400mb= 

 
400MB= Yury-Map2= 1Yury-Campaign= Cheatsengie= "Drv Cheat7Engine"= How to Download and Install Command & Conquer: Red Alert 2 – Yuri’s Revenge Trainer? Click the Download button. Download the Command & Conquer: Red Alert 2 – Yuri’s Revenge Trainer. Install the Trainer by clicking Next. Run Command & Conquer: Red Alert 2 – Yuri’s Revenge Trainer= Select Cheat Options and Activate.
10.07.202241.9KB
change the output type from console to windows instead of you can use new 
at the end to keep theChange the output type from Console Application to Windows Application, And Instead of Console.Readline/key you can use new ManualResetEvent(false).WaitOne() at the end to keep the app running. class start { static extern bool ShowWindow(IntPtr hWnd, int nCmdShow); static void Main() { IntPtr h = Process.GetCurrentProcess().MainWindowHandle; ShowWindow(h, 0); // Do the rest } }
01.07.202259.8KB
rhe operator ?:, also known as the ternary operator, evaluates a boolean expression and returns theRhe conditional operator ?:, also known as the ternary conditional operator, evaluates a Boolean expression and returns the result of one of the two expressions, depending on whether the Boolean expression evaluates to true or false, as the following example shows: -> tempInCelsius < 20.0 ? "Cold." : "Perfect!"; Begin Result:=a ? b : (c ? d : e); End; with j_d2l do if (int<>0) then a349:=if_int(r20,320, if_int(r11,311, if_int(r18,318,if_int(r31,331, if_int(r25,325, if_int(r28,328, if_int(r15,315,a349))))))); Function if_int(zeroone:wordbool;var1,var2:integer):integer; Begin if_int:=var1;if (zeroone) then exit;if_int:=var2;exit; winhlp32('Delphi3:=Nu functioneaza frmMainWnd=nil;bDummy := if_int(frmMainWnd=nil,7,frmMainWnd.BorderColor);'); End; Function if_are(zeroone:boolean;var1,var2:ads_real):ads_real; Begin if (zeroone) then result:=var1 else result:=var2; End; Function if_intl(tzxthen,tzxelse:integer;zeroone:wordbool):integer; Begin if_intl:=tzxthen;if (zeroone) then exit;if_intl:=tzxelse;End; Function if_string(accessCheck:boolean;const var1,var2:string):string; Var angdir:integer; Begin if accessCheck then if_string:=var1 else if_string:=var2; angdir:=length(result); result:=concat(result,#0#0#0); SetLength(result,angdir); End;
30.06.202266.8KB

 
WellCome2022LazarusJobs= AutoCAd-All-Tools=
22.06.202253.2KB
cdate-many versions of topoglist.
21.06.202243.7KB
if you known the length of pchar, then you can   dest:='';
   ifIf you known the length of pchar, then you can use... 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,locExtMax,ExtMax); delete(dest,extmax+1,255); Except dest:=strpas(locExtMax); End; End; End;//off-strpass("") Nadazuirea fara limiteMari in Dumnezeu este pacat= Impotrivirea fata de fapte=pacat. Impotrivirea fata de adevar=pacat. 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;
21.06.202240.7KB
io have a too: transform the entities into , was develop with c#net., only .for 
you executeLispDeveloper= IO have a too: Transform the Entities into LISP-autogenerator,DLL , was develop with C#net., only .for autocad2010. You execute the source LISP-autogenerator,vlx in anyAutoCAD-versiob and you got the blocks., circles,, If you need the LISP-autogenerator,lsp, then I am ... --------------- II develop many applications for "automating draft with a lisp", surveyours/cadastral/architectural plans. I am very interested in your job, because I work a very long time, as Surveyor, cadastral map, I draw many cadastral- maps. I can develop your-program.lsp and I can work the cadastral-tasks. Please you hire, also I can work surveyour/s-job++programmerLisp..
10.06.202254.3KB

 
please anyone help, save , you write yours opinions =!!=  vedeti daca au gasit comoara de gaz din Please anyone help, save , you write yours Opinions =!!= Vedeti guvernantii, daca au gasit comoara de gaz din Marea Neagra, noi romanii nu beneficiem de nimic , daca milioane de tone de gaz din Marea Neagra nu repara nici , nici o problema sistematica-Economica... Toate erorile sistematice din Economie cad pe spinarea prostiilor, adica noii+EU.? Voi ce ziceti? (Definitia Mea. eroare sistematică= eroare Economică+Fiscală, care se repeta natural de minim 20000x ori din ciclurile fiscale-economice de 2-4anii si nu nu repetiția 20mii-*ori nu nu nu este din cauza inflației mondiale; repetiția ca rezultat din comerț natural - firesc).
10.06.202235.8KB
you view msgbox on 
homepage= 
 
 

      set      echo any endYou view msgbox on vbs Comunitate= HomePage= set scredir=%ctab%\vlaxcompil\0user echo X=MsgBox("Press any key..Vlaxcompil",0+16,"The End") >%scredir%msg.vbs Echo "scredir=%scredir%" ::type %nwredir%msg.vbs @Title "Press Any key" cscript %scredir%msg.vbs "Press Any key\nVlaxCompil" "DoineaRancea" erase %scredir%msg.vbs Este posiil, sa ne roaga Alieni, sa nu fim lacomii la prea multa viata duhovniceasca, noi sa asteptam, daca oameni sunt capabili sa evolueaze la un nivel superior...pe planeta Marte<, si acolo noi ortodoxi sa invatam, cum o cunosc Alieni peMaica Domnului + IIsus. din râsâritul Soarelui, pe Marte sau pe Venus.-, cum o vrea Occidentul- ei fac viitorul tehnologic.
10.06.202248.6KB
/*c2s:
       if                else/*c2s: if (type($o1)!=quote(INT)) $db=cond($op==tip,T;nil); else pdi=pdi~point
10.06.202225.2KB
procedure filename :string; l :  i : integer;
  un,n,v :   with do
    try
           add(''); Procedure CreateFPMake(Const FileName :String; L : TAPIEntries); Var I : Integer; UN,N,V : ShortString; begin UN:=ChangeFileext(ExtractFileName(FileName),''); With TStringList.Create do try Add('program fpmake;'); Add(''); Add('{$mode objfpc}{$h+}'); Add(''); Add('uses sysutils,classes, fpmkunit;'); Add(''); Add(''); Add('function StdDep(T : TTarget) : TTarget;'); Add('begin'); Add(' T.Dependencies.AddUnit(''googlebase'');'); Add(' T.Dependencies.AddUnit(''googleservice'');'); Add(' Result:=T;'); Add('end;'); Add(''); Add('Procedure AddGoogle;'); Add(''); Add('Var'); Add(' P : TPackage;'); Add(' T : TTarget;'); Add(''); Add('begin'); Add(' With Installer do'); Add(' begin'); Add(' P:=AddPackage(''googleapis'');'); Add(' P.ShortName:=''googleap'';'); Add(' T:=P.Targets.AddUnit(''googlebase.pp'');'); Add(' T:=P.Targets.AddUnit(''googleclient.pp'');'); Add(' T:=P.Targets.AddUnit(''googleservice.pp'');'); Add(' T.Dependencies.AddUnit(''googleclient'');'); Add(' T.Dependencies.AddUnit(''googlebase'');'); For I:=0 to L.Count-1 do begin N:=L.APIUnitName; Add(Format(' T:=StdDep(P.Targets.AddUnit(''%s''));',[ExtractFileName(L)); end; Add(' end;'); Add('end;'); Add(''); Add('{$ifndef ALLPACKAGES}'); Add('begin'); Add(' AddGoogle;'); Add(' Installer.Run;'); Add('end.'); Add('{$endif ALLPACKAGES}'); Add(''); Add('procedure register;'); Add(''); Add('begin'); SaveToFile(FileName); finally Free; end; end;
04.06.202258.5KB

 
Welcome-Julia
03.06.202253.1KB
Freelancer22-CondorCJoburi-Odesk= -------------- ZiuaEroilor= Iunie2022 Aprilie2022odesk2000$= Aprilie2022odesk34delphi=
28.05.202260.6KB
- drracket + clojure projectComplex-Clojure2022Mai24=
24.05.202257.9KB
preţ chirie lujerului – 330-370 de – 340-400 de nerva traian – 400 de dristor – 350-400 dePreţ chirie garsonieră Chirie Lujerului – 330-370 de euro Chirie Grozăveşti – 340-400 de euro Chirie Nerva Traian – 400 de euro Chirie Dristor – 350-400 de euro Chirie Titan – 300-350 de euro Preţ chirie apartament două camere Chirie Lujerului – 450 de euro Chirie Grozăveşti – 500-550 de euro Chirie Timpuri Noi – 600 de euro Chirie Dristor – 500-600 de euro Chirie Aviaţiei – 600-650 de euro Mulţi proprietari încearcă să forţeze piaţa şi să scoată la închiriere locuinţe cu 50, chiar 100 de euro peste preţul real. Nu întodeauna metoda lor funcţionează. În momentul de faţă, în Capitală, într-o zonă bună, o garsonieră se închiriază cu 350 de euro. Un apartament de două camere se închiriază şi cu 450 de euro. Întrebat dacă ar fi loc de negociere, Alexandru Damian, broker imobiliar, răspunde: „Foarte puţin, doar dacă oferta este de mult timp pe piaţă şi deja îl costă pe proprietar să n-o aibă închiriată”. O analiză a pieţei din Capitală arată că o garsonieră în zonele Lujerului, Grozăveşti sau Nerva Traian se închiriază la preţuri cuprinse între 330 şi 400 de euro. Pentru apartamentele cu două camere – tarifele ajung şi la 600 de euro pe lună, în funcţie de dotări şi de zonă. Preţurile cresc pe măsură ce ne apropiem de centrul şi nordul oraşului. „Zona Timpuri Noi, zona Dristor merge foarte bine. Zona Lujerului, zona Grozăveşti, zona Aviaţiei, fix în zona de birouri. Acolo mereu au fost puncte fierbinţi ale pieţei. Chiar şi Tineretului”, mai spune Alexandru Damian, broker imobiliar. La toamnă, o dată cu începerea noului an universitar, preţurile chiriilor vor creşte din nou
22.05.202239.2KB

 
dragne ai fost selectat să cadoul tău clic pe acest link pentru a vă revendica cadoulDragne Felicitări, ai fost selectat să primești cadoul tău 🎁🎁🎁 Faceți clic pe acest link pentru a vă revendica cadoul 👇👇👇👇 Cadoul-primit-dela Becalii= Dragne Adrian Felicitări sunteți câștigătorul celui mai bogat om de afaceri al României 🇦🇩 * Gigi becail * League Promotional Game Foundation, vă rugăm să contactați asistentul său pe WhatsApp pentru mai multe informații Pentru a vă revendica 📦📦🎁🎁 👇👇👇 Dragne Felicitări, ai fost selectat să primești cadoul tău 🎁🎁🎁 Faceți clic pe acest link pentru a vă revendica cadoul 👇👇👇👇 👆👆👆👆👆👆👆 RăspundeDistribuie5h Takou Yacoubou Dragne Adrian Felicitări sunteți câștigătorul celui mai bogat om de afaceri al României 🇦🇩 * Gigi becail * League Promotional Game Foundation, vă rugăm să contactați asistentul său pe WhatsApp pentru mai multe informații Pentru a vă revendica 📦📦🎁🎁 👇👇👇
22.05.202242.6KB
(romania (romania "x3 si y3 sunt valorii reale") (mapcar 'set '(x3 y3) (polar pt1 ang del)) M- Trebuie foarte multa buna-voire intre conducatorii statului, si mai bine, dupa ce o coloniza oamenii pe Luna(eng. Moon), atunci puterea lui Dumnezeu,poate se va muta pe Luna.-prin oameni-. Voi nu bagati prea multe sperante in lucruri prea trecatoare. Valoriile x1,y1,z1 (mapcar 'set '(x1 y1 z1) pt1) (mapcar 'set '(x3 y3) (polar (list (car _last) (cadr _last)) ang del)) In palatul lui Ceausescu a fost paradis, cum zice el, si are dreptate,>dar in subsolul-intunecat din comunism a existat t prea multa concentratie a foamei ...Durerea romanilor, este cand inainte de 1989, s-au intalnit cu "acesta concentratie a foamei". Definite: concentratie= compara alcoolemia vinului cu tuica.(10% cu 50%alcool
22.05.202260.9KB
are pornesc aplicatia in sterg Hello. These are follow-steps:= --------------- 2)eu pornesc aplicatia xf-adsk2017_x64.exe in "AdministratorMode" 3)eu sterg "Paste Request Here" cu butonul "Backspace" pana la refuz. 4)eu copiez RequestCode din "Acad-Activation" 5)eu copiez acestRequestCode inside "xf-adsk2017_x64.exe" 6)eu apas buton "Generate" 7)eu apas butonul "Patch" 8)eu obtin "Patch Succesufully" 9)eu copiez codul "Activation" de 4 litere in clipboard A)eu paste "Activation" din clipboard, la "Acad-Activation" B)eu apas "Next" din interior "Acad-Activation" Cele doua moduri de "patch" sunt completare, adica trebuie facute amandoua. Intotdeauana taskurile din odesk.com, eu caut solutii pe google.com, dinainte sa-ma apuc de-ele. Atentie! in windows10->eu sterg definitiv "WindowsDefenfer" cu "Windows_7_live_cd_from_usb.iso", prin bootare depe "CD"
21.05.202269.2KB
hi..
you can convert .doc to do not link the autolisp with can compile .doc to i generate the fileHi.. You can convert .DOC to LISP_R14-source generator. (you do not link the autolisp with msword.exe) You can compile .DOC to LISP_R14-source generator. Eg1: i generate the file "output00-doc.doc" attached here) Step1) You open the .DOC with MsWord Step2) You saveAs RTF format Step3) You goto the forum lisp2arx and you install the kitt from (please you make user account and click-again) Step4) You open .Doc with MsWord.exe,and you write for string variabile for integer variabile Stpe5) You goto the menu "Compile&convert->Preprocessor Word Document->Sample Doc to Autolisp Generator" Step6) You goto the menu "(defun AUTOLISP)->Compile RBZ file" Step7)Select .RTF file Step8) You select the path "C:\VLAXCOMPIL\LISP2012\cadanexe\Sample\" and you select the folder 00 or 01 Step9) please wait,you run progecad.exe StepA) you load autolisp program and enter the command Q3
11.05.202240.7KB

 
matrixrom=  flex si bison carteMatrixRom= BibliotecanNationala= EdituraEconomica=
10.05.202257.5KB
day1= 
day0= 
 - drracket + clojure project2021-iunie-17Racket= clickrer= DAY1= DAY0=
02.05.202271.8KB
super-poze care pot fi 


  scrise corect din anSuper-poze care pot fi circularizate BlendTwoImages= *cp_B3EA77D107030522580BE332B36B602E*mid_333284EA0CBE0CFCF89F49DCDCD4C462C12E946B*simid_608054854033371538*thid_OIP.dkIe744lfOysUJpZfBLD!_gAAAA&vt=0&sim=11&iss=VSI&simid=608015851433978239&ajaxhist=0&ajaxserp=0 EditorScalare= BlendTwoImages=
22.04.2022102KB
cuviosul marian titan din bucuresti.
22.04.202234.6KB

 
mp3= depe muntele ahtos= 
mp3= to  to mp3Mp3= Cantarilke-Ingerilor depe muntele Ahtos= Călărășeuca= Mp3= ElpanovEvgeniy= Tilte=Youtube-downloader to Mp3 Tunelul_din_straja=
10.04.202233.7KB
cum se calculeaza la noi benzina in dollari? tu vizioneaza tabelul, eu te rog, spune-ne pe cel locCum se calculeaza la noi benzina in dollari? Tu vizioneaza tabelul, eu te rog, spune-ne pe cel loc se afla Romania la pretul benzinei de la pompa?Ajuta-ne cu experienta ta .. click-here= România achiziţionează 78% din ţiţei din import la preţuri care sunt conectate la preţul ţiţeiului de pe bursele internaţionale. Acest ţiţei este rafinat, transportat, depozitat şi vândut prin benzinării clienţilor. Costul acestor operaţii este de cca. 1,6 lei/litru de benzina de Premium 95. Ulterior statul aplica taxe si accize la pretul final, a explicat Dumitru Chisăliţă, preşedintele Asociaţiei Energia Inteligent Citeste mai mult: adev.ro/r8iu56
03.04.202242.6KB
pastila minune este modafinil, am observat ca e cunoscut printre studentii de la noi, in special Pastila minune este Modafinil, am observat ca e cunoscut printre studentii de la noi, in special aceia care au cam ajuns prin state sau au reusit sa procure. Cica, in urma cu 5-7 ani, nu era de gasit nicaieri prin UE, toti faceau rost din state. Medicamentul face exact ce spune Jimmy in clip. Am inteles ca astea se numesc nootropice, ma rog... In prezent, exista si la noi in tara astfel de medicamente, de la ginkobil la piracetam si Beyond Brain. Legat de aderall, un alt medicament cu "puteri", e o mica problema; desi e mult mai hight, e si cu un oarecare risc crescut. Este administrat legal peste tot in lume, celor cu ADHA sau alte afectiuni cerebrale. Fiind o anfetamina, are si efectele secundare unui astfel de drog.
02.04.202240.2KB
since  strpas is too        if or then exit;
             if or then exit;
    if then
       beginSince strPas is too slow, Function str_pas1(const sourcesir:pchar):string; Begin result:=''; if (sourcesir=nil) or (sourcesir^=#00) then exit; result:=sourcesir; End; 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; You can add more effects inside StrPas (uppercase, search two chars inside) Function strpas255for(var dest:shortstring;srchui:pchar;SNTSearch:word):integer; Var dxf,nth:integer; cll,chh:word; zerop:boolean; label bCanExit; Begin result:=RTCAN; zerop:=false; nth:=1; if (srchui=NIL) then goto bCanExit; result:=RTREJ; setlength(dest,255); if (SNTSearch=0)then Begin for nth:=1 to 255 do Begin dxf:=ord(srchui^); if (dxf=0) then goto bCanExit; dest:=upcase(char(dxf)); if (result<0) and (dxf>1) then result:=RTNORM; inc(srchui); End; goto bCanExit; End; result:=0; cll:=SNTSearch and 255; chh:=(SNTSearch shr 8) and 255; if (cll>0)and(chh>0) then Begin for nth:=1 to 255 do Begin dxf:=ord(srchui^); if (dxf=0) then goto bCanExit else if (cll=dxf) then result:=result and cll else if (chh=dxf) then result:=(dxf shl 8)+(result and 255); dest:=upcase(char(dxf)); inc(srchui); End; goto bCanExit; End; if (chh>0) then Begin for nth:=1 to 255 do Begin dxf:=ord(srchui^); if (dxf=0) then goto bCanExit else if (chh=dxf)and(result<0) then result:=nth; dest:=upcase(char(dxf)); inc(srchui); End; goto bCanExit; End; if (cll>0) then Begin for nth:=1 to 255 do Begin dxf:=ord(srchui^); if (dxf=0) then goto bCanExit else if (cll=dxf)and(result<0) then result:=nth; dest:=upcase(char(dxf)); inc(srchui); End; goto bCanExit; End; bCanExit: setlength(dest,nth-1); End;//off-strpasfor("")
25.03.202270KB

 
oreste = nu ne trebuie experienta ta ci vama ta dintre preot si uman, hotarul dintre preot si viataPtre40euto= Oreste = Nouă nu ne trebuie experienta ta preoteasca, ci vama ta dintre preot si uman, hotarul dintre preot si viata cetatenească. Daca cultura Nasa din Occident ne fac robotii, oameni cu măini robotici, sau picioare roboticii pe la oameni, inimi de robot, si alte implanturi, sau antene robotice pe cap-uman, atunci noi păcătosii o să fugim la tata popa , disperati să-l iubim pe Draci ortodoxi din Bisericii, noi o să vrem dar nu mai putem face nimic, va fi prea tărziu
13.03.202252.8KB
la  o  să regreti singur, tu ai cel mai bun canon  personal, canon iertare de  in lumeafreelancer2022feb= La batrănete,tu o să regreti singur, tu ai cel mai bun canon personal, canon iertare de păcate in lumea ortodoxa=5anii fără salariu ; doar dacă acum tu ai banii să trăiesti prezentul si tu mai lucrezi decent pe unde apuci.. Dacă tu esti sărac acum in 2022, eu te inteleg pe partea de răfuieli cu IPS
08.03.202226.6KB
after daniel suggestion on 
 

 post for on publishing an autocad plug-in i think i am going to useAfter Daniel suggestion on post for information on publishing an AutoCAD plug-in I think I am going to use the Entitlement API for licensing the app. Autodesk informs me that can cover the offering of a temporally trial version and a yearly subscription controlled by the API which is basically what I have in mind for the publishing. From those of you that have had the experience of using this approach to licensing Autocad plug-ins, could you please comment on your experience? Thanks in advance.
18.02.202262.6KB
glenn dufke curious about this - do you have any on how to digitally sign seems like most of theGlenn Dufke Curious about this - do you have any recommendations on how to digitally sign executables? Seems like most of the solutions out there are overly expensive Michael Honan There are two types of certificates, OV and EV. EV are expensive, requires a dongle and meant for kernel drivers and such. OV certificates are easier and cheaper to get and for most software developers, are sufficient to sign their executables, dependencies and installer. KSoftware have reasonably priced OV and EV certificates. Olaf Monien Certificat= ... And in English
08.02.202261.3KB

 
function                                  if (limcheck Function str_lenadd(Var s:string;limcheck:integer;AdAChar:char):integer; Var filer:pchar; extmax,nth:integer; strcd:string; Begin result:=0; filer=nil; extmax:=0; if (limcheck<1) then exit; if (length(s)<=limcheck) then extmax:=limcheck-length(s); if (extmax<1) then exit; setlength(strcd,extmax); filer:=@Strcd); fillchar(filer^,extmax,AdAChar); s:=concat(s,strcd); Result:=Length(strcd); strcd:=''; End; {--} Function xchg_str(var a,b:string):integer; Var nLen:array of integer; nth:integer; charset:char; Begin nLen:=length(a); nLen:=length(b); if (nLen>nLen) then result:=nLen else result:=nLen; if (result<1) then exit; if (nLen
07.02.202268.8KB
gruopup on facebookfreelancer2022feb= GigiBecali Gruopup on FaceBook
01.02.202268.8KB
(defun (fun lst)
  fun (list (car (read (defun RMJ:TESTLST (fun lst) (vl-catch-all-error-p (vl-catch-all-apply fun (list (car lst)))) ) (eval (read "(list a xv")) ------------- (if (not (vl-catch-all-error-p (setq rtn (vl-catch-all-apply func (reverse in))))) rtn ) (if (vl-catch-all-error-p (setq err (vl-catch-all-apply (function (lambda () (vl-cmdf "_.line" "_none" (list 0 0 0) "_none" (list 100 100 0) ""))) ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of vl-catch-all-error-p (princ (strcat "\n" (vl-catch-all-error-message err))) ) ;_ end of if
21.01.202282.1KB
program   : integer;  { the graphics device driver }
  graphmode   : integer;  { the graphics modeProgram ce_joaca_SAH; Uses Newdelay,Crt, Graph,CTimers,dos; var GraphDriver : integer; { The Graphics device driver } GraphMode : integer; { The Graphics mode value } MaxX, MaxY : word; { The maximum resolution of the screen } ErrorCode : integer; { Reports any graphics errors } MaxColor : word; { The maximum color value available } OldExitProc : Pointer; { Saves exit procedure address } {$F+} procedure MyExitProc; begin ExitProc := OldExitProc; { Restore exit procedure address } CloseGraph; { Shut down the graphics system } end; { MyExitProc } {$F-} {$F+} function DetectVGA256 : integer; { Detects VGA or MCGA video cards } var DetectedDriver : integer; SuggestedMode : integer; begin DetectGraph(DetectedDriver, SuggestedMode); if (DetectedDriver = VGA) or (DetectedDriver = MCGA) then DetectVGA256 := 0 { Default video mode = 0 } else DetectVGA256 := grError; { Couldn't detect hardware } end; { DetectVGA256 } {$F-} {--} var AutoDetectPointer : pointer; Procedure Initialize512; { Initialize graphics and report any errors that may occur } var InGraphicsMode : boolean; { Flags initialization of graphics mode } PathToDriver : string; { Stores the DOS path to *.BGI & *.CHR } begin { when using Crt and graphics, turn off Crt's memory-mapped writes } DirectVideo := False; OldExitProc := ExitProc; { save previous exit proc } ExitProc := @MyExitProc; { insert our exit proc in chain } PathToDriver := ''; repeat AutoDetectPointer := @DetectVGA256; { Point to detection routine } GraphDriver := InstallUserDriver('Vga256', AutoDetectPointer); GraphDriver := Detect; GraphMode:=VGAHi; InitGraph(GraphDriver, GraphMode, PathToDriver); ErrorCode := GraphResult; { preserve error return } if ErrorCode <> grOK then { error? } begin Writeln('Graphics error: ', GraphErrorMsg(ErrorCode)); if ErrorCode = grFileNotFound then { Can't find driver file } begin Writeln('Enter full path to BGI driver or type to quit:'); Readln(PathToDriver); Writeln; end else Halt(1); { Some other error: terminate } end; until ErrorCode = grOK; Randomize; { init random number generator } MaxColor := GetMaxColor; { Get the maximum allowable drawing color } MaxX := GetMaxX; { Get screen resolution values } MaxY := GetMaxY; end; { Initialize } Begin ClrScr; Case 2011 of 2010: Begin GraphDriver:=VGA; GraphMode:=VGAHi; InitGraph(GraphDriver,GraphMode,'.\bgi'); End; 2011: Initialize256; 2012: Initialize512; End; SetTextStyle(TriplexFont,HorizDir,1); StartupInitialize; DefaultBoard; DisplayGameScreen; MainMenu; CloseGraph; End.
05.01.202261.2KB
Inainte