Parceiros Wgets downloads
{Eu uso esta função para impressão em matricial para sair com açentos e outro carcters especiais} Function StrToAscii(Str: String):Variant; var S: Array[30..254] Of String; V: Array[30..254] Of Variant; i,r: Integer; Res: Variant; begin S[030]:=' ';S[031]:=' ';S[032]:=' ';S[033]:='!';S[034]:='"';S[035]:='#';S[036]:='$'; S[037]:='%';S[038]:='&';S[039]:='''';S[040]:='(';S[041]:=')';S[042]:='*';S[043]:='+'; S[044]:=',';S[045]:='-';S[046]:='.';S[047]:='/';S[048]:='0';S[049]:='1';S[050]:='2'; S[051]:='3';S[052]:='4';S[053]:='5';S[054]:='6';S[055]:='7';S[056]:='8';S[057]:='9'; S[058]:=':';S[059]:=';';S[060]:='<';S[061]:='=';S[062]:='>';S[063]:='?';S[064]:='@'; S[065]:='A';S[066]:='B';S[067]:='C';S[068]:='D';S[069]:='E';S[070]:='F';S[071]:='G'; S[072]:='H';S[073]:='I';S[074]:='J';S[075]:='K';S[076]:='L';S[077]:='M';S[078]:='N'; S[079]:='O';S[080]:='P';S[081]:='Q';S[082]:='R';S[083]:='S';S[084]:='T';S[085]:='U'; S[086]:='V';S[087]:='W';S[088]:='X';S[089]:='Y';S[090]:='Z';S[091]:='[';S[092]:=''; S[093]:=']';S[094]:='^';S[095]:='_';S[096]:='`';S[097]:='a';S[098]:='b';S[099]:='c'; S[100]:='d';S[101]:='e';S[102]:='f';S[103]:='g';S[104]:='h';S[105]:='i';S[106]:='j'; S[107]:='k';S[108]:='l';S[109]:='m';S[110]:='n';S[111]:='o';S[112]:='p';S[113]:='q'; S[114]:='r';S[115]:='s';S[116]:='t';S[117]:='u';S[118]:='v';S[119]:='w';S[120]:='x'; S[121]:='y';S[122]:='z';S[123]:='{';S[124]:='|';S[125]:='}';S[126]:='~';S[127]:='¦'; S[128]:='Ç';S[129]:='Ü';S[130]:='é';S[131]:='â';S[132]:='ã';S[133]:='à';S[134]:='å'; S[135]:='ç';S[136]:='ê';S[137]:='ë';S[138]:='è';S[139]:='ï';S[140]:='î';S[141]:='ì'; S[142]:='Ä';S[143]:='Å';S[144]:='É';S[145]:='æ';S[146]:='Æ';S[147]:='ô';S[148]:='ö'; S[149]:='ò';S[150]:='û';S[151]:='ù';S[152]:='ÿ';S[153]:='Ö';S[154]:='Ü';S[155]:='ø'; S[156]:='£';S[157]:='Ø';S[158]:='×';S[159]:='ƒ';S[160]:='á';S[161]:='í';S[162]:='ó'; S[163]:='ú';S[164]:='ñ';S[165]:='Ñ';S[166]:='ª';S[167]:='º';S[168]:='¿';S[169]:='®'; S[170]:='¬';S[171]:='½';S[172]:='¼';S[173]:='¡';S[174]:='«';S[175]:='»';S[176]:='¦'; S[177]:='¦';S[178]:='¦';S[179]:='¦';S[180]:='¦';S[181]:='Á';S[182]:='Â';S[183]:='À'; S[184]:='©';S[185]:='¦';S[186]:='¦';S[187]:='+';S[188]:='+';S[189]:='¢';S[190]:='¥'; S[191]:='+';S[192]:='+';S[193]:='-';S[194]:='-';S[195]:='+';S[196]:='-';S[197]:='+'; S[198]:='ã';S[199]:='Ã';S[200]:='+';S[201]:='+';S[202]:='-';S[203]:='-';S[204]:='¦'; S[205]:='-';S[206]:='+';S[207]:='¤';S[208]:='ð';S[209]:='Ð';S[210]:='Ê';S[211]:='Ë'; S[212]:='È';S[214]:='Í';S[215]:='Î';S[216]:='Ï';S[217]:='+';S[218]:='+'; S[219]:='¦';S[220]:='_';S[221]:='Ë';S[222]:='Ì';S[223]:='¯';S[224]:='Ó';S[225]:='ß'; S[226]:='Ô';S[227]:='Ò';S[228]:='õ';S[229]:='Õ';S[230]:='µ';S[231]:='þ';S[232]:='Þ'; S[233]:='Ú';S[234]:='Û';S[235]:='Ù';S[236]:='ý';S[237]:='Ý';S[238]:='¯';S[239]:='´'; S[240]:='';S[241]:='±';S[242]:='=';S[243]:='¾';S[244]:='¶';S[245]:='§';S[246]:='÷'; S[247]:='¸';S[248]:='°';S[249]:='¨';S[250]:='·';S[251]:='¹';S[252]:='³';S[253]:='²'; S[254]:='¦'; V[30]:=#30;V[31]:=#31;V[32]:=#32;V[33]:=#33;V[34]:=#34;V[35]:=#35;V[36]:=#36; V[37]:=#37;V[38]:=#38;V[39]:=#39;V[40]:=#40;V[41]:=#41;V[42]:=#42;V[43]:=#43; V[44]:=#44;V[45]:=#45;V[46]:=#46;V[47]:=#47;V[48]:=#48;V[49]:=#49;V[50]:=#50; V[51]:=#51;V[52]:=#52;V[53]:=#53;V[54]:=#54;V[55]:=#55;V[56]:=#56;V[57]:=#57; V[58]:=#58;V[59]:=#59;V[60]:=#60;V[61]:=#61;V[62]:=#62;V[63]:=#63;V[64]:=#64; V[65]:=#65;V[66]:=#66;V[67]:=#67;V[68]:=#68;V[69]:=#69;V[70]:=#70;V[71]:=#71; V[72]:=#72;V[73]:=#73;V[74]:=#74;V[75]:=#75;V[76]:=#76;V[77]:=#77;V[78]:=#78; V[79]:=#79;V[80]:=#80;V[81]:=#81;V[82]:=#82;V[83]:=#83;V[84]:=#84;V[85]:=#85; V[86]:=#86;V[87]:=#87;V[88]:=#88;V[89]:=#89;V[90]:=#90;V[91]:=#91;V[92]:=#92; V[93]:=#93;V[94]:=#94;V[95]:=#95;V[96]:=#96;V[97]:=#97;V[98]:=#98;V[99]:=#99; V[100]:=#100;V[101]:=#101;V[102]:=#102;V[103]:=#103;V[104]:=#104;V[105]:=#105;V[106]:=#106; V[107]:=#107;V[108]:=#108;V[109]:=#109;V[110]:=#110;V[111]:=#111;V[112]:=#112;V[113]:=#113; V[114]:=#114;V[115]:=#115;V[116]:=#116;V[117]:=#117;V[118]:=#118;V[119]:=#119;V[120]:=#120; V[121]:=#121;V[122]:=#122;V[123]:=#123;V[124]:=#124;V[125]:=#125;V[126]:=#126;V[127]:=#127; V[128]:=#128;V[129]:=#129;V[130]:=#130;V[131]:=#131;V[132]:=#132;V[133]:=#133;V[134]:=#134; V[135]:=#135;V[136]:=#136;V[137]:=#137;V[138]:=#138;V[139]:=#139;V[140]:=#140;V[141]:=#141; V[142]:=#142;V[143]:=#143;V[144]:=#144;V[145]:=#145;V[146]:=#146;V[147]:=#147;V[148]:=#148; V[149]:=#149;V[150]:=#150;V[151]:=#151;V[152]:=#152;V[153]:=#153;V[154]:=#154;V[155]:=#155; V[156]:=#156;V[157]:=#157;V[158]:=#158;V[159]:=#159;V[160]:=#160;V[161]:=#161;V[162]:=#162; V[163]:=#163;V[164]:=#164;V[165]:=#165;V[166]:=#166;V[167]:=#167;V[168]:=#168;V[169]:=#169; V[170]:=#170;V[171]:=#171;V[172]:=#172;V[173]:=#173;V[174]:=#174;V[175]:=#175;V[176]:=#176; V[177]:=#177;V[178]:=#178;V[179]:=#179;V[180]:=#180;V[181]:=#181;V[182]:=#182;V[183]:=#183; V[184]:=#184;V[185]:=#185;V[186]:=#186;V[187]:=#187;V[188]:=#188;V[189]:=#189;V[190]:=#190; V[191]:=#191;V[192]:=#192;V[193]:=#193;V[194]:=#194;V[195]:=#195;V[196]:=#196;V[197]:=#197; V[198]:=#198;V[199]:=#199;V[200]:=#200;V[201]:=#201;V[202]:=#202;V[203]:=#203;V[204]:=#204; V[205]:=#205;V[206]:=#206;V[207]:=#207;V[208]:=#208;V[209]:=#209;V[210]:=#210;V[211]:=#211; V[212]:=#212;V[213]:=#213;V[214]:=#214;V[215]:=#215;V[216]:=#216;V[217]:=#217;V[218]:=#218; V[219]:=#219;V[220]:=#220;V[221]:=#221;V[222]:=#222;V[223]:=#223;V[224]:=#224;V[225]:=#225; V[226]:=#226;V[227]:=#227;V[228]:=#228;V[229]:=#229;V[230]:=#230;V[231]:=#231;V[232]:=#232; V[233]:=#233;V[234]:=#234;V[235]:=#235;V[236]:=#236;V[237]:=#237;V[238]:=#238;V[239]:=#239; V[240]:=#240;V[241]:=#241;V[242]:=#242;V[243]:=#243;V[244]:=#244;V[245]:=#245;V[246]:=#246; V[247]:=#247;V[248]:=#248;V[249]:=#249;V[250]:=#250;V[251]:=#251;V[252]:=#252;V[253]:=#253; V[254]:=#254; for i:= 0 to Length(Str) do begin Res:= Str[i]; for r:= Low(S) to High(S) do If Str[i] = S[r] then Res:= V[r]; Result:= Result+Res; end; end;
