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:
Naturesk Profile
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 47 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 508
|
|
Var Loading_flowers:packed record jpg:packed array[Word] of word;End;
Code:
Function Boot_Loading_flowersjpg:integer;
Var h21,l21:Integer;
Author2014:record
Christian:boolean;
Mass:boolean;
end;
osmode:integer;
begin
result:=sizeof(Loading_flowers);
for h21:=kIntLoowChar to kIntHighChar do
for l21:=kIntLoowChar to kIntHighChar do
with Loading_flowers do
Begin osmode:=h21*256+l21;
Jpg[osmode]:=osmode;
Author2014.Christian:=(h21>=kOrdA)and(h21<=kordZ);
Author2014.Mass:=(l21>=kOrdA)and(l21<=kordZ);
if (Author2014.Christian=true)and(Author2014.Mass=fals) then Jpg[osmode]:=(h21+php_strtolower_wscurrent)*256+l21 else
if (Author2014.Christian=fals)and(Author2014.Mass=true) then Jpg[osmode]:=h21*256+(l21+php_strtolower_wscurrent) else
if (Author2014.Christian=true)and(Author2014.Mass=true) then
Jpg[osmode]:=(h21+php_strtolower_wscurrent)*256+(l21+php_strtolower_wscurrent);
End;
end |
Code:
Function fLower453Case(const S: string): string;
var
nLen: Integer;
Source: PChar;
Dest:PWord;
cc1:__pin32;
oddbse32:word;
begin
nLen:=length(S);
SetLength(Result,nLen);
Source := Pointer(S);
Dest := Pointer(Result);
oddbse32:=(nLen and 1);
nLen:=nLen shr 1;
while nLen > 0 do
begin
cc1.han:=phandle(Source)^;
Dest^ := Loading_flowers.jpg[cc1.woa];
Inc(Source);
Inc(Dest);
Inc(Source);
Inc(Dest);
Dec(nLen);
end;
if (oddbse32<>0) then
Begin nlen:=length(result);
oddbse32:=ord(S[nLen]);
if (oddbse32<kOrdA) or (oddbse32>kOrdZ) then exit;
inc(oddbse32,32);
Result[nLen]:=chr(oddbse32);
End;
end; |
_______________________________________
|
|
| pus acum 2 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 508
|
|
Procedure h_acgi_waltz_of_flower(mp3:integer);
Var sir,sir2:string;
cnt:array[0..3] of integer;
nth:integer;
Begin
if (mp3<1) then exit;
cnt[0]:=GetTickCount;
for nth:=1 to mp3 do
Begin sir:='SlUjBa vEcErNiEi - sFâNtUl aPoStOl tImOtEi; Sf. CuViOs mUcEnIc aNaStAsIe pErSuL #22iAnUaRiE';
sir2:=LowerCase(sir);
End;
cnt[0]:=GetTickCount-cnt[0];
cnt[1]:=GetTickCount;
for nth:=1 to mp3 do
Begin sir:='SlUjBa vEcErNiEi - sFâNtUl aPoStOl tImOtEi; Sf. CuViOs mUcEnIc aNaStAsIe pErSuL #22iAnUaRiE';
sir2:=sir;
Str_LowerCh(sir2);
End;
cnt[1]:=GetTickCount-cnt[1];
cnt[2]:=GetTickCount;
for nth:=1 to mp3 do
Begin sir:='SlUjBa vEcErNiEi - sFâNtUl aPoStOl tImOtEi; Sf. CuViOs mUcEnIc aNaStAsIe pErSuL #22iAnUaRiE';
sir2:=fLower453Case(sir);
End;
cnt[2]:=GetTickCount-cnt[2];
writeln('LowerCase-----Cnt0=',cnt[0],#13#10,
'Str_LowerCh---Cnt1=',cnt[1],#13#10,
'fLower453Case.Cnt2=',cnt[2]);
End;
_______________________________________
|
|
| pus acum 2 ani |
|