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:
Bby67
 | Femeie
19 ani
Bucuresti
cauta Barbat
19 - 70 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 508
|
|
I need replace the bellow 'a'..'z': with 'a'..'z': Begin assm.nam[gap]:=upcase(system.nomutt);
Code:
for gap:=1 to length(ass.name) do
case videoplayback_dulce_gutuie(ass.name[gap]) of
'\': Begin assm.knoppix[gap]:='/';assm.android:=concat(assm.android,'\\');End;
#00: Begin delete(assm.name,gap,1);dec(sql);end;
'a'..'z': Begin winhelp:='I cannot where Case do execute';End;
else Begin assm.knoppix:=concat(assm.knoppix,assm.name[gap]);
assm.android:=concat(assm.android,assm.name[gap]);
End;
End; |
Delphi=If you have known, the system.variabileName from CaseTree,
then please, you tell me on facebook.com
Code:
for gap:=1 to length(ass.name) do
case videoplayback_dulce_gutuie(ass.name[gap]) of
'\': Begin assm.knoppix[gap]:='/';assm.android:=concat(assm.android,'\\');End;
#00: Begin delete(assm.name,gap,1);dec(sql);end;
'a'..'z': Begin assm.nam[gap]:=upcase(nomutt);
??? winhelp:='I cannot where Case do execute';
End;
else Begin assm.knoppix:=concat(assm.knoppix,assm.name[gap]);
assm.android:=concat(assm.android,assm.name[gap]);
End;
End; |
_______________________________________
|
|
| pus acum 3 ani |
|