9.1.2006, 9:55
Решил создать тему, которая поможет начинающим, в программировании с телефоном. Помню когда-то давно на форуме спрашивал как из цифр тех что в смс получить текст. :) Мне посоветовали этот метод. Он таже используетя при чтении справочника.
Вообщем давайте вместе выкладывать функции и все что связано с программированием у кого что есть интересное, чтобы облегчить работу начинающим программистам и не только,а то из-за каждого такого вопроса приходится создавать новую тему!
Все вопросы также пишите сюда!
function AnsiToUcs(Convert:string):string;
var
f:string;
qa:integer;
begin
result:='';
for qa:=1 to Length(Convert) do begin
f:=Convert[qa];
if f='А' then result:=result+'0410';if f='Б' then result:=result+'0411';if f='В' then result:=result+'0412';if f='Г' then result:=result+'0413';
if f='Д' then result:=result+'0414';if f='Е' then result:=result+'0415';if f='Ж' then result:=result+'0416';if f='З' then result:=result+'0417';
if f='И' then result:=result+'0418';if f='Й' then result:=result+'0419';if f='К' then result:=result+'041A';if f='Л' then result:=result+'041B';
if f='М' then result:=result+'041C';if f='Н' then result:=result+'041D';if f='О' then result:=result+'041E';if f='П' then result:=result+'041F';
if f='Р' then result:=result+'0420';if f='С' then result:=result+'0421';if f='Т' then result:=result+'0422';if f='У' then result:=result+'0423';
if f='Ф' then result:=result+'0424';if f='Х' then result:=result+'0425';if f='Ц' then result:=result+'0426';if f='Ч' then result:=result+'0427';
if f='Ш' then result:=result+'0428';if f='Щ' then result:=result+'0429';if f='Ъ' then result:=result+'042A';if f='Ы' then result:=result+'042B';
if f='Ь' then result:=result+'042C';if f='Э' then result:=result+'042D';if f='Ю' then result:=result+'042E';if f='Я' then result:=result+'042F';
if f='а' then result:=result+'0430';if f='б' then result:=result+'0431';if f='в' then result:=result+'0432';if f='г' then result:=result+'0433';
if f='д' then result:=result+'0434';if f='е' then result:=result+'0435';if f='ж' then result:=result+'0436';if f='з' then result:=result+'0437';
if f='и' then result:=result+'0438';if f='й' then result:=result+'0439';if f='к' then result:=result+'043A';if f='л' then result:=result+'043B';
if f='м' then result:=result+'043C';if f='н' then result:=result+'043D';if f='о' then result:=result+'043E';if f='п' then result:=result+'043F';
if f='р' then result:=result+'0440';if f='с' then result:=result+'0441';if f='т' then result:=result+'0442';if f='у' then result:=result+'0443';
if f='ф' then result:=result+'0444';if f='х' then result:=result+'0445';if f='ц' then result:=result+'0446';if f='ч' then result:=result+'0447';
if f='ш' then result:=result+'0448';if f='щ' then result:=result+'0449';if f='ъ' then result:=result+'044A';if f='ы' then result:=result+'044B';
if f='ь' then result:=result+'044C';if f='э' then result:=result+'044D';if f='ю' then result:=result+'044E';if f='я' then result:=result+'044F';
if f='Ё' then result:=result+'0401';if f='ё' then result:=result+'0451';if f='.' then result:=result+'002E';if f=',' then result:=result+'002C';
if f='!' then result:=result+'0021';if f='"' then result:=result+'0022';if f='№' then result:=result+'2116';if f=';' then result:=result+'003B';
if f='%' then result:=result+'0025';if f=':' then result:=result+'003A';if f='?' then result:=result+'003F';if f='*' then result:=result+'002A';
if f='(' then result:=result+'0028';if f=')' then result:=result+'0029';if f='/' then result:=result+'002F';if f='0' then result:=result+'0030';
if f='1' then result:=result+'0031';if f='2' then result:=result+'0032';if f='3' then result:=result+'0033';if f='4' then result:=result+'0034';
if f='5' then result:=result+'0035';if f='6' then result:=result+'0036';if f='7' then result:=result+'0037';if f='8' then result:=result+'0038';
if f='9' then result:=result+'0039';if f='+' then result:=result+'002B';if f='-' then result:=result+'002D';if f='=' then result:=result+'003D';
if f=',' then result:=result+'2C00';if f=' ' then result:=result+'0020';if f='A' then result:=result+'4100';if f='B' then result:=result+'4200';
if f='C' then result:=result+'4300';if f='D' then result:=result+'4400';if f='E' then result:=result+'4500';if f='F' then result:=result+'4600';
if f='G' then result:=result+'4700';if f='H' then result:=result+'4800';if f='I' then result:=result+'4900';if f='J' then result:=result+'4A00';
if f='K' then result:=result+'4B00';if f='L' then result:=result+'4C00';if f='M' then result:=result+'4D00';if f='N' then result:=result+'4E00';
if f='O' then result:=result+'4F00';if f='P' then result:=result+'5000';if f='Q' then result:=result+'5100';if f='R' then result:=result+'5200';
if f='S' then result:=result+'5300';if f='T' then result:=result+'5400';if f='U' then result:=result+'5500';if f='V' then result:=result+'5600';
if f='W' then result:=result+'5700';if f='X' then result:=result+'5800';if f='Y' then result:=result+'5900';if f='Z' then result:=result+'5A00';
if f='a' then result:=result+'6100';if f='b' then result:=result+'6200';if f='c' then result:=result+'6300';if f='d' then result:=result+'6400';
if f='e' then result:=result+'6500';if f='f' then result:=result+'6600';if f='g' then result:=result+'6700';if f='h' then result:=result+'6800';
if f='i' then result:=result+'6900';if f='j' then result:=result+'6A00';if f='k' then result:=result+'6B00';if f='l' then result:=result+'6C00';
if f='m' then result:=result+'6D00';if f='n' then result:=result+'6E00';if f='o' then result:=result+'6F00';if f='p' then result:=result+'7000';
if f='q' then result:=result+'7100';if f='r' then result:=result+'7200';if f='s' then result:=result+'7300';if f='t' then result:=result+'7400';
if f='u' then result:=result+'7500';if f='v' then result:=result+'7600';if f='w' then result:=result+'7700';if f='x' then result:=result+'7800';
if f='y' then result:=result+'7900';if f='z' then result:=result+'7A00';
end;
end;
function UcsToAnsi(Convert:string):string;
var
f:string;
qa:integer;
begin
result:='';
for qa:=1 to Length(Convert)div 4 do begin
f:=Copy(Convert,1,4);
Delete(Convert,1,4);
if f='0040' then result:=result+'@';if f='0410' then result:=result+'А';if f='0411' then result:=result+'Б';if f='0412' then result:=result+'В';
if f='0413' then result:=result+'Г';if f='0414' then result:=result+'Д';if f='0415' then result:=result+'Е';if f='0416' then result:=result+'Ж';
if f='0417' then result:=result+'З';if f='0418' then result:=result+'И';if f='0419' then result:=result+'Й';if f='041A' then result:=result+'К';
if f='041B' then result:=result+'Л';if f='041C' then result:=result+'М';if f='041D' then result:=result+'Н';if f='041E' then result:=result+'О';
if f='041F' then result:=result+'П';if f='0420' then result:=result+'Р';if f='0421' then result:=result+'С';if f='0422' then result:=result+'Т';
if f='0423' then result:=result+'У';if f='0424' then result:=result+'Ф';if f='0425' then result:=result+'Х';if f='0426' then result:=result+'Ц';
if f='0427' then result:=result+'Ч';if f='0428' then result:=result+'Ш';if f='0429' then result:=result+'Щ';if f='042A' then result:=result+'Ъ';
if f='042B' then result:=result+'Ы';if f='042C' then result:=result+'Ь';if f='042D' then result:=result+'Э';if f='042E' then result:=result+'Ю';
if f='042F' then result:=result+'Я';if f='0430' then result:=result+'а';if f='0431' then result:=result+'б';if f='0432' then result:=result+'в';
if f='0433' then result:=result+'г';if f='0434' then result:=result+'д';if f='0435' then result:=result+'е';if f='0436' then result:=result+'ж';
if f='0437' then result:=result+'з';if f='0438' then result:=result+'и';if f='0439' then result:=result+'й';if f='043A' then result:=result+'к';
if f='043B' then result:=result+'л';if f='043C' then result:=result+'м';if f='043D' then result:=result+'н';if f='043E' then result:=result+'о';
if f='043F' then result:=result+'п';if f='0440' then result:=result+'р';if f='0441' then result:=result+'с';if f='0442' then result:=result+'т';
if f='0443' then result:=result+'у';if f='0444' then result:=result+'ф';if f='0445' then result:=result+'х';if f='0446' then result:=result+'ц';
if f='0447' then result:=result+'ч';if f='0448' then result:=result+'ш';if f='0449' then result:=result+'щ';if f='044A' then result:=result+'ъ';
if f='044B' then result:=result+'ы';if f='044C' then result:=result+'ь';if f='044D' then result:=result+'э';if f='044E' then result:=result+'ю';
if f='044F' then result:=result+'я';if f='0401' then result:=result+'Ё';if f='0451' then result:=result+'ё';if f='002E' then result:=result+'.';
if f='002C' then result:=result+',';if f='0021' then result:=result+'!';if f='0022' then result:=result+'"';if f='2116' then result:=result+'№';
if f='003B' then result:=result+';';if f='0025' then result:=result+'%';if f='003A' then result:=result+':';if f='003F' then result:=result+'?';
if f='002A' then result:=result+'*';if f='0028' then result:=result+'(';if f='0029' then result:=result+')';if f='002F' then result:=result+'/';
if f='0030' then result:=result+'0';if f='0031' then result:=result+'1';if f='0032' then result:=result+'2';if f='0033' then result:=result+'3';
if f='0034' then result:=result+'4';if f='0035' then result:=result+'5';if f='0036' then result:=result+'6';if f='0037' then result:=result+'7';
if f='0038' then result:=result+'8';if f='0039' then result:=result+'9';if f='002B' then result:=result+'+';if f='002D' then result:=result+'-';
if f='003D' then result:=result+'=';if f='2C00' then result:=result+',';if f='0020' then result:=result+' ';if f='0041' then result:=result+'A';
if f='0042' then result:=result+'B';if f='0043' then result:=result+'C';if f='0044' then result:=result+'D';if f='0045' then result:=result+'E';
if f='0046' then result:=result+'F';if f='0047' then result:=result+'G';if f='0048' then result:=result+'H';if f='0049' then result:=result+'I';
if f='004A' then result:=result+'J';if f='004B' then result:=result+'K';if f='004C' then result:=result+'L';if f='004D' then result:=result+'M';
if f='004E' then result:=result+'N';if f='004F' then result:=result+'O';if f='0050' then result:=result+'P';if f='0051' then result:=result+'Q';
if f='0052' then result:=result+'R';if f='0053' then result:=result+'S';if f='0054' then result:=result+'T';if f='0055' then result:=result+'U';
if f='0056' then result:=result+'V';if f='0057' then result:=result+'W';if f='0058' then result:=result+'X';if f='0059' then result:=result+'Y';
if f='005A' then result:=result+'Z';if f='0061' then result:=result+'a';if f='0062' then result:=result+'b';if f='0063' then result:=result+'c';
if f='0064' then result:=result+'d';if f='0065' then result:=result+'e';if f='0066' then result:=result+'f';if f='0067' then result:=result+'g';
if f='0068' then result:=result+'h';if f='0069' then result:=result+'i';if f='006A' then result:=result+'j';if f='006B' then result:=result+'k';
if f='006C' then result:=result+'l';if f='006D' then result:=result+'m';if f='006E' then result:=result+'n';if f='006F' then result:=result+'o';
if f='0070' then result:=result+'p';if f='0071' then result:=result+'q';if f='0072' then result:=result+'r';if f='0073' then result:=result+'s';
if f='0074' then result:=result+'t';if f='0075' then result:=result+'u';if f='0076' then result:=result+'v';if f='0077' then result:=result+'w';
if f='0078' then result:=result+'x';if f='0079' then result:=result+'y';if f='007A' then result:=result+'z';
end;
end;
Вообщем давайте вместе выкладывать функции и все что связано с программированием у кого что есть интересное, чтобы облегчить работу начинающим программистам и не только,а то из-за каждого такого вопроса приходится создавать новую тему!
Все вопросы также пишите сюда!
function AnsiToUcs(Convert:string):string;
var
f:string;
qa:integer;
begin
result:='';
for qa:=1 to Length(Convert) do begin
f:=Convert[qa];
if f='А' then result:=result+'0410';if f='Б' then result:=result+'0411';if f='В' then result:=result+'0412';if f='Г' then result:=result+'0413';
if f='Д' then result:=result+'0414';if f='Е' then result:=result+'0415';if f='Ж' then result:=result+'0416';if f='З' then result:=result+'0417';
if f='И' then result:=result+'0418';if f='Й' then result:=result+'0419';if f='К' then result:=result+'041A';if f='Л' then result:=result+'041B';
if f='М' then result:=result+'041C';if f='Н' then result:=result+'041D';if f='О' then result:=result+'041E';if f='П' then result:=result+'041F';
if f='Р' then result:=result+'0420';if f='С' then result:=result+'0421';if f='Т' then result:=result+'0422';if f='У' then result:=result+'0423';
if f='Ф' then result:=result+'0424';if f='Х' then result:=result+'0425';if f='Ц' then result:=result+'0426';if f='Ч' then result:=result+'0427';
if f='Ш' then result:=result+'0428';if f='Щ' then result:=result+'0429';if f='Ъ' then result:=result+'042A';if f='Ы' then result:=result+'042B';
if f='Ь' then result:=result+'042C';if f='Э' then result:=result+'042D';if f='Ю' then result:=result+'042E';if f='Я' then result:=result+'042F';
if f='а' then result:=result+'0430';if f='б' then result:=result+'0431';if f='в' then result:=result+'0432';if f='г' then result:=result+'0433';
if f='д' then result:=result+'0434';if f='е' then result:=result+'0435';if f='ж' then result:=result+'0436';if f='з' then result:=result+'0437';
if f='и' then result:=result+'0438';if f='й' then result:=result+'0439';if f='к' then result:=result+'043A';if f='л' then result:=result+'043B';
if f='м' then result:=result+'043C';if f='н' then result:=result+'043D';if f='о' then result:=result+'043E';if f='п' then result:=result+'043F';
if f='р' then result:=result+'0440';if f='с' then result:=result+'0441';if f='т' then result:=result+'0442';if f='у' then result:=result+'0443';
if f='ф' then result:=result+'0444';if f='х' then result:=result+'0445';if f='ц' then result:=result+'0446';if f='ч' then result:=result+'0447';
if f='ш' then result:=result+'0448';if f='щ' then result:=result+'0449';if f='ъ' then result:=result+'044A';if f='ы' then result:=result+'044B';
if f='ь' then result:=result+'044C';if f='э' then result:=result+'044D';if f='ю' then result:=result+'044E';if f='я' then result:=result+'044F';
if f='Ё' then result:=result+'0401';if f='ё' then result:=result+'0451';if f='.' then result:=result+'002E';if f=',' then result:=result+'002C';
if f='!' then result:=result+'0021';if f='"' then result:=result+'0022';if f='№' then result:=result+'2116';if f=';' then result:=result+'003B';
if f='%' then result:=result+'0025';if f=':' then result:=result+'003A';if f='?' then result:=result+'003F';if f='*' then result:=result+'002A';
if f='(' then result:=result+'0028';if f=')' then result:=result+'0029';if f='/' then result:=result+'002F';if f='0' then result:=result+'0030';
if f='1' then result:=result+'0031';if f='2' then result:=result+'0032';if f='3' then result:=result+'0033';if f='4' then result:=result+'0034';
if f='5' then result:=result+'0035';if f='6' then result:=result+'0036';if f='7' then result:=result+'0037';if f='8' then result:=result+'0038';
if f='9' then result:=result+'0039';if f='+' then result:=result+'002B';if f='-' then result:=result+'002D';if f='=' then result:=result+'003D';
if f=',' then result:=result+'2C00';if f=' ' then result:=result+'0020';if f='A' then result:=result+'4100';if f='B' then result:=result+'4200';
if f='C' then result:=result+'4300';if f='D' then result:=result+'4400';if f='E' then result:=result+'4500';if f='F' then result:=result+'4600';
if f='G' then result:=result+'4700';if f='H' then result:=result+'4800';if f='I' then result:=result+'4900';if f='J' then result:=result+'4A00';
if f='K' then result:=result+'4B00';if f='L' then result:=result+'4C00';if f='M' then result:=result+'4D00';if f='N' then result:=result+'4E00';
if f='O' then result:=result+'4F00';if f='P' then result:=result+'5000';if f='Q' then result:=result+'5100';if f='R' then result:=result+'5200';
if f='S' then result:=result+'5300';if f='T' then result:=result+'5400';if f='U' then result:=result+'5500';if f='V' then result:=result+'5600';
if f='W' then result:=result+'5700';if f='X' then result:=result+'5800';if f='Y' then result:=result+'5900';if f='Z' then result:=result+'5A00';
if f='a' then result:=result+'6100';if f='b' then result:=result+'6200';if f='c' then result:=result+'6300';if f='d' then result:=result+'6400';
if f='e' then result:=result+'6500';if f='f' then result:=result+'6600';if f='g' then result:=result+'6700';if f='h' then result:=result+'6800';
if f='i' then result:=result+'6900';if f='j' then result:=result+'6A00';if f='k' then result:=result+'6B00';if f='l' then result:=result+'6C00';
if f='m' then result:=result+'6D00';if f='n' then result:=result+'6E00';if f='o' then result:=result+'6F00';if f='p' then result:=result+'7000';
if f='q' then result:=result+'7100';if f='r' then result:=result+'7200';if f='s' then result:=result+'7300';if f='t' then result:=result+'7400';
if f='u' then result:=result+'7500';if f='v' then result:=result+'7600';if f='w' then result:=result+'7700';if f='x' then result:=result+'7800';
if f='y' then result:=result+'7900';if f='z' then result:=result+'7A00';
end;
end;
function UcsToAnsi(Convert:string):string;
var
f:string;
qa:integer;
begin
result:='';
for qa:=1 to Length(Convert)div 4 do begin
f:=Copy(Convert,1,4);
Delete(Convert,1,4);
if f='0040' then result:=result+'@';if f='0410' then result:=result+'А';if f='0411' then result:=result+'Б';if f='0412' then result:=result+'В';
if f='0413' then result:=result+'Г';if f='0414' then result:=result+'Д';if f='0415' then result:=result+'Е';if f='0416' then result:=result+'Ж';
if f='0417' then result:=result+'З';if f='0418' then result:=result+'И';if f='0419' then result:=result+'Й';if f='041A' then result:=result+'К';
if f='041B' then result:=result+'Л';if f='041C' then result:=result+'М';if f='041D' then result:=result+'Н';if f='041E' then result:=result+'О';
if f='041F' then result:=result+'П';if f='0420' then result:=result+'Р';if f='0421' then result:=result+'С';if f='0422' then result:=result+'Т';
if f='0423' then result:=result+'У';if f='0424' then result:=result+'Ф';if f='0425' then result:=result+'Х';if f='0426' then result:=result+'Ц';
if f='0427' then result:=result+'Ч';if f='0428' then result:=result+'Ш';if f='0429' then result:=result+'Щ';if f='042A' then result:=result+'Ъ';
if f='042B' then result:=result+'Ы';if f='042C' then result:=result+'Ь';if f='042D' then result:=result+'Э';if f='042E' then result:=result+'Ю';
if f='042F' then result:=result+'Я';if f='0430' then result:=result+'а';if f='0431' then result:=result+'б';if f='0432' then result:=result+'в';
if f='0433' then result:=result+'г';if f='0434' then result:=result+'д';if f='0435' then result:=result+'е';if f='0436' then result:=result+'ж';
if f='0437' then result:=result+'з';if f='0438' then result:=result+'и';if f='0439' then result:=result+'й';if f='043A' then result:=result+'к';
if f='043B' then result:=result+'л';if f='043C' then result:=result+'м';if f='043D' then result:=result+'н';if f='043E' then result:=result+'о';
if f='043F' then result:=result+'п';if f='0440' then result:=result+'р';if f='0441' then result:=result+'с';if f='0442' then result:=result+'т';
if f='0443' then result:=result+'у';if f='0444' then result:=result+'ф';if f='0445' then result:=result+'х';if f='0446' then result:=result+'ц';
if f='0447' then result:=result+'ч';if f='0448' then result:=result+'ш';if f='0449' then result:=result+'щ';if f='044A' then result:=result+'ъ';
if f='044B' then result:=result+'ы';if f='044C' then result:=result+'ь';if f='044D' then result:=result+'э';if f='044E' then result:=result+'ю';
if f='044F' then result:=result+'я';if f='0401' then result:=result+'Ё';if f='0451' then result:=result+'ё';if f='002E' then result:=result+'.';
if f='002C' then result:=result+',';if f='0021' then result:=result+'!';if f='0022' then result:=result+'"';if f='2116' then result:=result+'№';
if f='003B' then result:=result+';';if f='0025' then result:=result+'%';if f='003A' then result:=result+':';if f='003F' then result:=result+'?';
if f='002A' then result:=result+'*';if f='0028' then result:=result+'(';if f='0029' then result:=result+')';if f='002F' then result:=result+'/';
if f='0030' then result:=result+'0';if f='0031' then result:=result+'1';if f='0032' then result:=result+'2';if f='0033' then result:=result+'3';
if f='0034' then result:=result+'4';if f='0035' then result:=result+'5';if f='0036' then result:=result+'6';if f='0037' then result:=result+'7';
if f='0038' then result:=result+'8';if f='0039' then result:=result+'9';if f='002B' then result:=result+'+';if f='002D' then result:=result+'-';
if f='003D' then result:=result+'=';if f='2C00' then result:=result+',';if f='0020' then result:=result+' ';if f='0041' then result:=result+'A';
if f='0042' then result:=result+'B';if f='0043' then result:=result+'C';if f='0044' then result:=result+'D';if f='0045' then result:=result+'E';
if f='0046' then result:=result+'F';if f='0047' then result:=result+'G';if f='0048' then result:=result+'H';if f='0049' then result:=result+'I';
if f='004A' then result:=result+'J';if f='004B' then result:=result+'K';if f='004C' then result:=result+'L';if f='004D' then result:=result+'M';
if f='004E' then result:=result+'N';if f='004F' then result:=result+'O';if f='0050' then result:=result+'P';if f='0051' then result:=result+'Q';
if f='0052' then result:=result+'R';if f='0053' then result:=result+'S';if f='0054' then result:=result+'T';if f='0055' then result:=result+'U';
if f='0056' then result:=result+'V';if f='0057' then result:=result+'W';if f='0058' then result:=result+'X';if f='0059' then result:=result+'Y';
if f='005A' then result:=result+'Z';if f='0061' then result:=result+'a';if f='0062' then result:=result+'b';if f='0063' then result:=result+'c';
if f='0064' then result:=result+'d';if f='0065' then result:=result+'e';if f='0066' then result:=result+'f';if f='0067' then result:=result+'g';
if f='0068' then result:=result+'h';if f='0069' then result:=result+'i';if f='006A' then result:=result+'j';if f='006B' then result:=result+'k';
if f='006C' then result:=result+'l';if f='006D' then result:=result+'m';if f='006E' then result:=result+'n';if f='006F' then result:=result+'o';
if f='0070' then result:=result+'p';if f='0071' then result:=result+'q';if f='0072' then result:=result+'r';if f='0073' then result:=result+'s';
if f='0074' then result:=result+'t';if f='0075' then result:=result+'u';if f='0076' then result:=result+'v';if f='0077' then result:=result+'w';
if f='0078' then result:=result+'x';if f='0079' then result:=result+'y';if f='007A' then result:=result+'z';
end;
end;
