Delphi \u062f\u0627 \u062e\u06d5\u0646\u0632\u06c7\u0686\u06d5 \u062e\u06d5\u062a\u0646\u0649\u06ad \u067e\u0649\u0646\u064a\u0649\u0646\u0649\u0646\u0649 \u062a\u0649\u067e\u0649\u0634 \u067e\u0631\u0648\u06af\u0631\u0627\u0645\u0645\u0649\u0633\u0649:<\/p>\n
unit Unit1;<\/p>\n
interface<\/p>\n
uses
\nWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
\nDialogs, StdCtrls;<\/p>\n
type
\nTForm1 = class(TForm)
\nEdit1: TEdit;
\nEdit2: TEdit;
\nprocedure Edit1Change(Sender: TObject);
\nprivate
\n{ Private declarations }
\npublic
\n{ Public declarations }
\nend;<\/p>\n
var
\nForm1: TForm1;<\/p>\n
implementation<\/p>\n
{$R *.dfm}
\nconst py: array[216..247] of string = (
\n{216}’CJWGNSPGCGNESYPB‹ + ›TYYZDXYKYGTDJNMJ‹ + ›QMBSGZSCYJSYYZPG‹ +
\n{216}’KBZGYCYWYKGKLJSW‹ + ›KPJQHYZWDDZLSGMR‹ + ›YPYWWCCKZNKYDG‹,
\n{217}’TTNJJEYKKZYTCJNM‹ + ›CYLQLYPYQFQRPZSL‹ + ›WBTGKJFYXJWZLTBN‹ +
\n{217}’CXJJJJZXDTTSQZYC‹ + ›DXXHGCKBPHFFSSYY‹ + ›BGMXLPBYLLLHLX‹,
\n{218}’SPZMYJHSOJNGHDZQ‹ + ›YKLGJHXGQZHXQGKE‹ + ›ZZWYSCSCJXYEYXAD‹ +
\n{218}’ZPMDSSMZJZQJYZCD‹ + ›JEWQJBDZBXGZNZCP‹ + ›WHKXHQKMWFBPBY‹,
\n{219}’DTJZZKQHYLYGXFPT‹ + ›YJYYZPSZLFCHMQSH‹ + ›GMXXSXJJSDCSBBQB‹ +
\n{219}’EFSJYHXWGZKPYLQB‹ + ›GLDLCCTNMAYDDKSS‹ + ›NGYCSGXLYZAYBN‹,
\n{220}’PTSDKDYLHGYMYLCX‹ + ›PYCJNDQJWXQXFYYF‹ + ›JLEJBZRXCCQWQQSB‹ +
\n{220}’ZKYMGPLBMJRQCFLN‹ + ›YMYQMSQYRBCJTHZT‹ + ›QFRXQHXMJJCJLX‹,
\n{221}’QGJMSHZKBSWYEMYL‹ + ›TXFSYDSGLYCJQXSJ‹ + ›NQBSCTYHBFTDCYZD‹ +
\n{221}’JWYGHQFRXWCKQKXE‹ + ›BPTLPXJZSRMEBWHJ‹ + ›LBJSLYYSMDXLCL‹,
\n{222}’QKXLHXJRZJMFQHXH‹ + ›WYWSBHTRXXGLHQHF‹ + ›NMCYKLDYXZPWLGGS‹ +
\n{222}’MTCFPAJJZYLJTYAN‹ + ›JGBJPLQGDZYQYAXB‹ + ›KYSECJSZNSLYZH‹,
\n{223}’ZXLZCGHPXZHZNYTD‹ + ›SBCJKDLZAYFMYDLE‹ + ›BBGQYZKXGLDNDNYS‹ +
\n{223}’KJSHDLYXBCGHXYPK‹ + ›DQMMZNGMMCLGWZSZ‹ + ›XZJFZNMLZZTHCS‹,
\n{224}’YDBDLLSCDDNLKJYK‹ + ›JSYCJLKOHQASDKNH‹ + ›CSGANHDAASHTCPLC‹ +
\n{224}’PQYBSDMPJLPCJOQL‹ + ›CDHJJYSPRCHNKNNL‹ + ›HLYYQYHWZPTCZG‹,
\n{225}’WWMZFFJQQQQYXACL‹ + ›BHKDJXDGMMYDJXZL‹ + ›LSYGXGKJRYWZWYCL‹ +
\n{225}’ZMSSJZLDBYDCPCXY‹ + ›HLXCHYZJQSQQAGMN‹ + ›YXPFRKSSBJLYXY‹,
\n{226}’SYGLNSCMHCWWMNZJ‹ + ›JLXXHCHSYD CTXRY‹ + ›CYXBYHCSMXJSZNPW‹ +
\n{226}’GPXXTAYBGAJCXLYS‹ + ›DCCWZOCWKCCSBNHC‹ + ›PDYZNFCYYTYCKX‹,
\n{227}’KYBSQKKYTQQXFCWC‹ + ›HCYKELZQBSQYJQCC‹ + ›LMTHSYWHMKTLKJLY‹ +
\n{227}’CXWHEQQHTQHZPQSQ‹ + ›SCFYMMDMGBWHWLGS‹ + ›LLYSDLMLXPTHMJ‹,
\n{228}’HWLJZYHZJXHTXJLH‹ + ›XRSWLWZJCBXMHZQX‹ + ›SDZPMGFCSGLSXYMJ‹ +
\n{228}’SHXPJXWMYQKSMYPL‹ + ›RTHBXFTPMHYXLCHL‹ + ›HLZYLXGSSSSTCL‹,
\n{229}’SLDCLRPBHZHXYYFH‹ + ›BBGDMYCNQQWLQHJJ‹ + ›ZYWJZYEJJDHPBLQX‹ +
\n{229}’TQKWHLCHQXAGTLXL‹ + ›JXMSLXHTZKZJECXJ‹ + ›CJNMFBYCSFYWYB‹,
\n{230}’JZGNYSDZSQYRSLJP‹ + ›CLPWXSDWEJBJCBCN‹ + ›AYTWGMPABCLYQPCL‹ +
\n{230}’ZXSBNMSGGFNZJJBZ‹ + ›SFZYNDXHPLQKZCZW‹ + ›ALSBCCJXJYZHWK‹,
\n{231}’YPSGXFZFCDKHJGXD‹ + ›LQFSGDSLQWZKXTMH‹ + ›SBGZMJZRGLYJBPML‹ +
\n{231}’MSXLZJQQHZSJCZYD‹ + ›JWBMJKLDDPMJEGXY‹ + ›HYLXHLQYQHKYCW‹,
\n{232}’CJMYYXNATJHYCCXZ‹ + ›PCQLBZWWYTWBQCML‹ + ›PMYRJCCCXFPZNZZL‹ +
\n{232}’JPLXXYZTZLGDLDCK‹ + ›LYRLZGQTGJHHGJLJ‹ + ›AXFGFJZSLCFDQZ‹,
\n{233}’LCLGJDJCSNCLLJPJ‹ + ›QDCCLCJXMYZFTSXG‹ + ›CGSBRZXJQQCTZHGY‹ +
\n{233}’QTJQQLZXJYLYLBCY‹ + ›AMCSTYLPDJBYREGK‹ + ›JZYZHLYSZQLZNW‹,
\n{234}’CZCLLWJQJJJKDGJZ‹ + ›OLBBZPPGLGHTGZXY‹ + ›GHZMYCNQSYCYHBHG‹ +
\n{234}’XKAMTXYXNBSKYZZG‹ + ›JZLQJDFCJXDYGJQJ‹ + ›JPMGWGJJJPKQSB‹,
\n{235}’GBMMCJSSCLPQPDXC‹ + ›DYYKYWCJDDYYGYWR‹ + ›HJRTGZNYQLDKLJSZ‹ +
\n{235}’ZGZQZJGDYKSHPZMT‹ + ›LCPWNJAFYZDJCNMW‹ + ›ESCYGLBTZCGMSS‹,
\n{236}’LLYXQSXSBSJSBBGG‹ + ›GHFJLYPMZJNLYYWD‹ + ›QSHZXTYYWHMCYHYW‹ +
\n{236}’DBXBTLMSYYYFSXJC‹ + ›SDXXLHJHF SXZQHF‹ + ›ZMZCZTQCXZXRTT‹,
\n{237}’DJHNNYZQQMNQDMMG‹ + ›LYDXMJGDHCDYZBFF‹ + ›ALLZTDLTFXMXQZDN‹ +
\n{237}’GWQDBDCZJDXBZGSQ‹ + ›QDDJCMBKZFFXMKDM‹ + ›DSYYSZCMLJDSYN‹,
\n{238}’SPRSKMKMPCKLGDBQ‹ + ›TFZSWTFGGLYPLLJZ‹ + ›HGJJGYPZLTCSMCNB‹ +
\n{238}’TJBQFKTHBYZGKPBB‹ + ›YMTDSSXTBNPDKLEY‹ + ›CJNYCDYKZDDHQH‹,
\n{239}’SDZSCTARLLTKZLGE‹ + ›CLLKJLQJAQNBDKKG‹ + ›HPJTZQKSECSHALQF‹ +
\n{239}’MMGJNLYJBBTMLYZX‹ + ›DCJPLDLPCQDHZYCB‹ + ›ZSCZBZMSLJFLKR‹,
\n{240}’ZJSNFRGJHXPDHYJY‹ + ›BZGDLJCSEZGXLBLH‹ + ›YXTWMABCHECMWYJY‹ +
\n{240}’ZLLJJYHLGBDJLSLY‹ + ›GKDZPZXJYYZLWCXS‹ + ›ZFGWYYDLYHCLJS‹,
\n{241}’CMBJHBLYZLYCBLYD‹ + ›PDQYSXQZBYTDKYYJ‹ + ›YYCNRJMPDJGKLCLJ‹ +
\n{241}’BCTBJDDBBLBLCZQR‹ + ›PPXJCGLZCSHLTOLJ‹ + ›NMDDDLNGKAQHQH‹,
\n{242}’JHYKHEZNMSHRP QQ‹ + ›JCHGMFPRXHJGDYCH‹ + ›GHLYRZQLCYQJNZSQ‹ +
\n{242}’TKQJYMSZSWLCFQQQ‹ + ›XYFGGYPTQWLMCRNF‹ + ›KKFSYYLQBMQAMM‹,
\n{243}’MYXCTPSHCPTXXZZS‹ + ›MPHPSHMCLMLDQFYQ‹ + ›XSZYJDJJZZHQPDSZ‹ +
\n{243}’GLSTJBCKBXYQZJSG‹ + ›PSXQZQZRQTBDKYXZ‹ + ›KHHGFLBCSMDLDG‹,
\n{244}’DZDBLZYYCXNNCSYB‹ + ›ZBFGLZZXSWMSCCMQ‹ + ›NJQSBDQSJTXXMBLT‹ +
\n{244}’XZCLZSHZCXRQJGJY‹ + ›LXZFJPHYXZQQYDFQ‹ + ›JJLZZNZJCDGZYG‹,
\n{245}’CTXMZYSCTLKPHTXH‹ + ›TLBJXJLXSCDQXCBB‹ + ›TJFQZFSLTJBTKQBX‹ +
\n{245}’XJJLJCHCZDBZJDCZ‹ + ›JDCPRNPQCJPFCZLC‹ + ›LZXBDMXMPHJSGZ‹,
\n{246}’GSZZQLYLWTJPFSYA‹ + ›SMCJBTZYYCWMYTCS‹ + ›JJLQCQLWZMALBXYF‹ +
\n{246}’BPNLSFHTGJWEJJXX‹ + ›GLLJSTGSHJQLZFKC‹ + ›GNNDSZFDEQFHBS‹,
\n{247}’AQTGYLBXMMYGSZLD‹ + ›YDQMJJRGBJTKGDHG‹ + ›KBLQKBDMBYLXWCXY‹ +
\n{247}’TTYBKMRTJZXQJBHL‹ + ›MHMJJZMQASLDCYXY‹ + ›QDLQCAFYWYXQHZ‹
\n);<\/p>\n
function ChnPy(Value: array of char): Char;
\nbegin
\nResult := #0;
\ncase Byte(Value[0]) of
\n176:
\ncase Byte(Value[1]) of
\n161..196: Result := ›A‹;
\n197..254: Result := ›B‹;
\nend; {case}
\n177:
\nResult := ›B‹;
\n178:
\ncase Byte(Value[1]) of
\n161..192: Result := ›B‹;
\n193..205: Result := ›C‹;
\n206: Result := ›S‹; \/\/\u53c2
\n207..254: Result := ›C‹;
\nend; {case}
\n179:
\nResult := ›C‹;
\n180:
\ncase Byte(Value[1]) of
\n161..237: Result := ›C‹;
\n238..254: Result := ›D‹;
\nend; {case}
\n181:
\nResult := ›D‹;
\n182:
\ncase Byte(Value[1]) of
\n161..233: Result := ›D‹;
\n234..254: Result := ›E‹;
\nend; {case}
\n183:
\ncase Byte(Value[1]) of
\n161: Result := ›E‹;
\n162..254: Result := ›F‹;
\nend; {case}
\n184:
\ncase Byte(Value[1]) of
\n161..192: Result := ›F‹;
\n193..254: Result := ›G‹;
\nend; {case}
\n185:
\ncase Byte(Value[1]) of
\n161..253: Result := ›G‹;
\n254: Result := ›H‹;
\nend; {case}
\n186:
\nResult := ›H‹;
\n187:
\ncase Byte(Value[1]) of
\n161..246: Result := ›H‹;
\n247..254: Result := ›J‹;
\nend; {case}
\n188..190:
\nResult := ›J‹;
\n191:
\ncase Byte(Value[1]) of
\n161..165: Result := ›J‹;
\n166..254: Result := ›K‹;
\nend; {case}
\n192:
\ncase Byte(Value[1]) of
\n161..171: Result := ›K‹;
\n172..254: Result := ›L‹;
\nend; {case}
\n193:
\nResult := ›L‹;
\n194:
\ncase Byte(Value[1]) of
\n161..231: Result := ›L‹;
\n232..254: Result := ›M‹;
\nend; {case}
\n195:
\nResult := ›M‹;
\n196:
\ncase Byte(Value[1]) of
\n161..194: Result := ›M‹;
\n195..254: Result := ›N‹;
\nend; {case}
\n197:
\ncase Byte(Value[1]) of
\n161..181: Result := ›N‹;
\n182..189: Result := ›O‹;
\n190..254: Result := ›P‹;
\nend; {case}
\n198:
\ncase Byte(Value[1]) of
\n161..217: Result := ›P‹;
\n218..254: Result := ›Q‹;
\nend; {case}
\n199:
\nResult := ›Q‹;
\n200:
\ncase Byte(Value[1]) of
\n161..186: Result := ›Q‹;
\n187..245: Result := ›R‹;
\n246..254: Result := ›S‹;
\nend; {case}
\n201..202:
\nResult := ›S‹;
\n203:
\ncase Byte(Value[1]) of
\n161..249: Result := ›S‹;
\n250..254: Result := ›T‹;
\nend; {case}
\n204:
\nResult := ›T‹;
\n205:
\ncase Byte(Value[1]) of
\n161..217: Result := ›T‹;
\n218..254: Result := ›W‹;
\nend; {case}
\n206:
\ncase Byte(Value[1]) of
\n161..243: Result := ›W‹;
\n244..254: Result := ›X‹;
\nend; {case}
\n207..208:
\nResult := ›X‹;
\n209:
\ncase Byte(Value[1]) of
\n161..184: Result := ›X‹;
\n185..254: Result := ›Y‹;
\nend; {case}
\n210..211:
\nResult := ›Y‹;
\n212:
\ncase Byte(Value[1]) of
\n161..208: Result := ›Y‹;
\n209..254: Result := ›Z‹;
\nend; {case}
\n213..215:
\nResult := ›Z‹;
\n216..247:
\nResult := py[Byte(Value[0])][Byte(Value[1]) – 160];
\nend; {case}
\nend;<\/p>\n
function ChnToPY(Value: string): string;
\nvar
\nI, L: Integer;
\nC: array[0..1] of char;
\nR: Char;
\nbegin
\nResult := »;
\nL := Length(Value);
\nI := 1;
\nwhile I <= (L – 1) do
\nbegin
\nif Value[I] < #160 then
\nbegin
\nResult := Result + Value[I];
\nInc(I);
\nend
\nelse
\nbegin
\nC[0] := Value[I];
\nC[1] := Value[I + 1];
\nR := ChnPY(C);
\nif r <> #0 then
\nResult := Result + R;
\nInc(I, 2);
\nend;
\nend;
\nif I = L then
\nResult := Result + Value[L];
\nend;<\/p>\n
procedure TForm1.Edit1Change(Sender: TObject);
\nbegin
\nedit2.Text := ChnToPY(trim(edit1.Text));
\nend;<\/p>\n
end.<\/p>\n
\n","protected":false},"excerpt":{"rendered":"
Delphi \u062f\u0627 \u062e\u06d5\u0646\u0632\u06c7\u0686\u06d5 \u062e\u06d5\u062a\u0646\u0649\u06ad \u067e\u0649\u0646\u064a\u0649\u0646\u0649\u0646\u0649 \u062a\u0649\u067e\u0649\u0634 \u067e\u0631\u0648\u06af\u0631\u0627\u0645\u0645\u0649\u0633\u0649: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; procedure Edit1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} const py: array[216..247] of string = […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-194","post","type-post","status-publish","format-standard","hentry","category-5"],"_links":{"self":[{"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/194","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=194"}],"version-history":[{"count":4,"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/194\/revisions"}],"predecessor-version":[{"id":196,"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/194\/revisions\/196"}],"wp:attachment":[{"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=194"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=194"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ablikim.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=194"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}