www.tjgcgs88.cn-狠狠久久亚洲欧美专区不卡,久久精品国产99久久无毒不卡,噼里啪啦国语版在线观看,zσzσzσ女人极品另类

碰巧我有這么一個(gè)函數(shù)
有點(diǎn)長(zhǎng)，，不過，絕對(duì)能用

const py: array[216..247] of string = (
{216}'CJWGNSPGCGNESYPB' + 'TYYZDXYKYGTDJNMJ' + 'QMBSGZSCYJSYYZPG' +
{216}'KBZGYCYWYKGKLJSW' + 'KPJQHYZWDDZLSGMR' + 'YPYWWCCKZNKYDG',
{217}'TTNJJEYKKZYTCJNM' + 'CYLQLYPYQFQRPZSL' + 'WBTGKJFYXJWZLTBN' +
{217}'CXJJJJZXDTTSQZYC' + 'DXXHGCKBPHFFSSYY' + 'BGMXLPBYLLLHLX',
{218}'SPZMYJHSOJNGHDZQ' + 'YKLGJHXGQZHXQGKE' + 'ZZWYSCSCJXYEYXAD' +
{218}'ZPMDSSMZJZQJYZCD' + 'JEWQJBDZBXGZNZCP' + 'WHKXHQKMWFBPBY',
{219}'DTJZZKQHYLYGXFPT' + 'YJYYZPSZLFCHMQSH' + 'GMXXSXJJSDCSBBQB' +
{219}'EFSJYHXWGZKPYLQB' + 'GLDLCCTNMAYDDKSS' + 'NGYCSGXLYZAYBN',
{220}'PTSDKDYLHGYMYLCX' + 'PYCJNDQJWXQXFYYF' + 'JLEJBZRXCCQWQQSB' +
{220}'ZKYMGPLBMJRQCFLN' + 'YMYQMSQYRBCJTHZT' + 'QFRXQHXMJJCJLX',
{221}'QGJMSHZKBSWYEMYL' + 'TXFSYDSGLYCJQXSJ' + 'NQBSCTYHBFTDCYZD' +
{221}'JWYGHQFRXWCKQKXE' + 'BPTLPXJZSRMEBWHJ' + 'LBJSLYYSMDXLCL',
{222}'QKXLHXJRZJMFQHXH' + 'WYWSBHTRXXGLHQHF' + 'NMCYKLDYXZPWLGGS' +
{222}'MTCFPAJJZYLJTYAN' + 'JGBJPLQGDZYQYAXB' + 'KYSECJSZNSLYZH',
{223}'ZXLZCGHPXZHZNYTD' + 'SBCJKDLZAYFMYDLE' + 'BBGQYZKXGLDNDNYS' +
{223}'KJSHDLYXBCGHXYPK' + 'DQMMZNGMMCLGWZSZ' + 'XZJFZNMLZZTHCS',
{224}'YDBDLLSCDDNLKJYK' + 'JSYCJLKOHQASDKNH' + 'CSGANHDAASHTCPLC' +
{224}'PQYBSDMPJLPCJOQL' + 'CDHJJYSPRCHNKNNL' + 'HLYYQYHWZPTCZG',
{225}'WWMZFFJQQQQYXACL' + 'BHKDJXDGMMYDJXZL' + 'LSYGXGKJRYWZWYCL' +
{225}'ZMSSJZLDBYDCPCXY' + 'HLXCHYZJQSQQAGMN' + 'YXPFRKSSBJLYXY',
{226}'SYGLNSCMHCWWMNZJ' + 'JLXXHCHSYD CTXRY' + 'CYXBYHCSMXJSZNPW' +
{226}'GPXXTAYBGAJCXLYS' + 'DCCWZOCWKCCSBNHC' + 'PDYZNFCYYTYCKX',
{227}'KYBSQKKYTQQXFCWC' + 'HCYKELZQBSQYJQCC' + 'LMTHSYWHMKTLKJLY' +
{227}'CXWHEQQHTQHZPQSQ' + 'SCFYMMDMGBWHWLGS' + 'LLYSDLMLXPTHMJ',
{228}'HWLJZYHZJXHTXJLH' + 'XRSWLWZJCBXMHZQX' + 'SDZPMGFCSGLSXYMJ' +
{228}'SHXPJXWMYQKSMYPL' + 'RTHBXFTPMHYXLCHL' + 'HLZYLXGSSSSTCL',
{229}'SLDCLRPBHZHXYYFH' + 'BBGDMYCNQQWLQHJJ' + 'ZYWJZYEJJDHPBLQX' +
{229}'TQKWHLCHQXAGTLXL' + 'JXMSLXHTZKZJECXJ' + 'CJNMFBYCSFYWYB',
{230}'JZGNYSDZSQYRSLJP' + 'CLPWXSDWEJBJCBCN' + 'AYTWGMPABCLYQPCL' +
{230}'ZXSBNMSGGFNZJJBZ' + 'SFZYNDXHPLQKZCZW' + 'ALSBCCJXJYZHWK',
{231}'YPSGXFZFCDKHJGXD' + 'LQFSGDSLQWZKXTMH' + 'SBGZMJZRGLYJBPML' +
{231}'MSXLZJQQHZSJCZYD' + 'JWBMJKLDDPMJEGXY' + 'HYLXHLQYQHKYCW',
{232}'CJMYYXNATJHYCCXZ' + 'PCQLBZWWYTWBQCML' + 'PMYRJCCCXFPZNZZL' +
{232}'JPLXXYZTZLGDLDCK' + 'LYRLZGQTGJHHGJLJ' + 'AXFGFJZSLCFDQZ',
{233}'LCLGJDJCSNCLLJPJ' + 'QDCCLCJXMYZFTSXG' + 'CGSBRZXJQQCTZHGY' +
{233}'QTJQQLZXJYLYLBCY' + 'AMCSTYLPDJBYREGK' + 'JZYZHLYSZQLZNW',
{234}'CZCLLWJQJJJKDGJZ' + 'OLBBZPPGLGHTGZXY' + 'GHZMYCNQSYCYHBHG' +
{234}'XKAMTXYXNBSKYZZG' + 'JZLQJDFCJXDYGJQJ' + 'JPMGWGJJJPKQSB',
{235}'GBMMCJSSCLPQPDXC' + 'DYYKYWCJDDYYGYWR' + 'HJRTGZNYQLDKLJSZ' +
{235}'ZGZQZJGDYKSHPZMT' + 'LCPWNJAFYZDJCNMW' + 'ESCYGLBTZCGMSS',
{236}'LLYXQSXSBSJSBBGG' + 'GHFJLYPMZJNLYYWD' + 'QSHZXTYYWHMCYHYW' +
{236}'DBXBTLMSYYYFSXJC' + 'SDXXLHJHF SXZQHF' + 'ZMZCZTQCXZXRTT',
{237}'DJHNNYZQQMNQDMMG' + 'LYDXMJGDHCDYZBFF' + 'ALLZTDLTFXMXQZDN' +
{237}'GWQDBDCZJDXBZGSQ' + 'QDDJCMBKZFFXMKDM' + 'DSYYSZCMLJDSYN',
{238}'SPRSKMKMPCKLGDBQ' + 'TFZSWTFGGLYPLLJZ' + 'HGJJGYPZLTCSMCNB' +
{238}'TJBQFKTHBYZGKPBB' + 'YMTDSSXTBNPDKLEY' + 'CJNYCDYKZDDHQH',
{239}'SDZSCTARLLTKZLGE' + 'CLLKJLQJAQNBDKKG' + 'HPJTZQKSECSHALQF' +
{239}'MMGJNLYJBBTMLYZX' + 'DCJPLDLPCQDHZYCB' + 'ZSCZBZMSLJFLKR',
{240}'ZJSNFRGJHXPDHYJY' + 'BZGDLJCSEZGXLBLH' + 'YXTWMABCHECMWYJY' +
{240}'ZLLJJYHLGBDJLSLY' + 'GKDZPZXJYYZLWCXS' + 'ZFGWYYDLYHCLJS',
{241}'CMBJHBLYZLYCBLYD' + 'PDQYSXQZBYTDKYYJ' + 'YYCNRJMPDJGKLCLJ' +
{241}'BCTBJDDBBLBLCZQR' + 'PPXJCGLZCSHLTOLJ' + 'NMDDDLNGKAQHQH',
{242}'JHYKHEZNMSHRP QQ' + 'JCHGMFPRXHJGDYCH' + 'GHLYRZQLCYQJNZSQ' +
{242}'TKQJYMSZSWLCFQQQ' + 'XYFGGYPTQWLMCRNF' + 'KKFSYYLQBMQAMM',
{243}'MYXCTPSHCPTXXZZS' + 'MPHPSHMCLMLDQFYQ' + 'XSZYJDJJZZHQPDSZ' +
{243}'GLSTJBCKBXYQZJSG' + 'PSXQZQZRQTBDKYXZ' + 'KHHGFLBCSMDLDG',
{244}'DZDBLZYYCXNNCSYB' + 'ZBFGLZZXSWMSCCMQ' + 'NJQSBDQSJTXXMBLT' +
{244}'XZCLZSHZCXRQJGJY' + 'LXZFJPHYXZQQYDFQ' + 'JJLZZNZJCDGZYG',
{245}'CTXMZYSCTLKPHTXH' + 'TLBJXJLXSCDQXCBB' + 'TJFQZFSLTJBTKQBX' +
{245}'XJJLJCHCZDBZJDCZ' + 'JDCPRNPQCJPFCZLC' + 'LZXBDMXMPHJSGZ',
{246}'GSZZQLYLWTJPFSYA' + 'SMCJBTZYYCWMYTCS' + 'JJLQCQLWZMALBXYF' +
{246}'BPNLSFHTGJWEJJXX' + 'GLLJSTGSHJQLZFKC' + 'GNNDSZFDEQFHBS',
{247}'AQTGYLBXMMYGSZLD' + 'YDQMJJRGBJTKGDHG' + 'KBLQKBDMBYLXWCXY' +
{247}'TTYBKMRTJZXQJBHL' + 'MHMJJZMQASLDCYXY' + 'QDLQCAFYWYXQHZ'
);

function ChnPy(Value: array of char): Char;
begin
Result := #0;
case Byte(Value[0]) of
176:
case Byte(Value[1]) of
161..196: Result := 'A';
197..254: Result := 'B';
end; {case}
177:
Result := 'B';
178:
case Byte(Value[1]) of
161..192: Result := 'B';
193..205: Result := 'C';
206: Result := 'S'; //參
207..254: Result := 'C';
end; {case}
179:
Result := 'C';
180:
case Byte(Value[1]) of
161..237: Result := 'C';
238..254: Result := 'D';
end; {case}
181:
Result := 'D';
182:
case Byte(Value[1]) of
161..233: Result := 'D';
234..254: Result := 'E';
end; {case}
183:
case Byte(Value[1]) of
161: Result := 'E';
162..254: Result := 'F';
end; {case}
184:
case Byte(Value[1]) of
161..192: Result := 'F';
193..254: Result := 'G';
end; {case}
185:
case Byte(Value[1]) of
161..253: Result := 'G';
254: Result := 'H';
end; {case}
186:
Result := 'H';
187:
case Byte(Value[1]) of
161..246: Result := 'H';
247..254: Result := 'J';
end; {case}
188..190:
Result := 'J';
191:
case Byte(Value[1]) of
161..165: Result := 'J';
166..254: Result := 'K';
end; {case}
192:
case Byte(Value[1]) of
161..171: Result := 'K';
172..254: Result := 'L';
end; {case}
193:
Result := 'L';
194:
case Byte(Value[1]) of
161..231: Result := 'L';
232..254: Result := 'M';
end; {case}
195:
Result := 'M';
196:
case Byte(Value[1]) of
161..194: Result := 'M';
195..254: Result := 'N';
end; {case}
197:
case Byte(Value[1]) of
161..181: Result := 'N';
182..189: Result := 'O';
190..254: Result := 'P';
end; {case}
198:
case Byte(Value[1]) of
161..217: Result := 'P';
218..254: Result := 'Q';
end; {case}
199:
Result := 'Q';
200:
case Byte(Value[1]) of
161..186: Result := 'Q';
187..245: Result := 'R';
246..254: Result := 'S';
end; {case}
201..202:
Result := 'S';
203:
case Byte(Value[1]) of
161..249: Result := 'S';
250..254: Result := 'T';
end; {case}
204:
Result := 'T';
205:
case Byte(Value[1]) of
161..217: Result := 'T';
218..254: Result := 'W';
end; {case}
206:
case Byte(Value[1]) of
161..243: Result := 'W';
244..254: Result := 'X';
end; {case}
207..208:
Result := 'X';
209:
case Byte(Value[1]) of
161..184: Result := 'X';
185..254: Result := 'Y';
end; {case}
210..211:
Result := 'Y';
212:
case Byte(Value[1]) of
161..208: Result := 'Y';
209..254: Result := 'Z';
end; {case}
213..215:
Result := 'Z';
216..247:
Result := py[Byte(Value[0])][Byte(Value[1]) - 160];
end; {case}
end;

function TitemMag.ChnToPY(Value: string): string;
var
I, L: Integer;
C: array[0..1] of char;
R: Char;
begin
Result := '';
L := Length(Value);
I := 1;
while I <= (L - 1) do
begin
if Value[I] < #160 then
begin
Result := Result + Value[I];
Inc(I);
end
else
begin
C[0] := Value[I];
C[1] := Value[I + 1];
R := ChnPY(C);
if r <> #0 then
Result := Result + R;
Inc(I, 2);
end;
end;
if I = L then
Result := Result + Value[L];
end;

你可能是調(diào)用了一個(gè)無效的參數(shù)

{以下代碼在Delphi7中測(cè)試通過 可直接復(fù)制使用
用法：
procedure TForm1.btn1Click(Sender: TObject);
begin
Caption:= GetPy('金財(cái)稅客戶管理系統(tǒng)');
end;
}
function THBase.HexToInt(const HexValue: String): Integer;
begin
Val('$' + HexValue, Result, Result);
end;

function GetPy(const HZ: string): string;
var
HZ_bm1, HZ_bm2, I: Integer;
int_char, tem_char, retu_char: string;
uni_char: widestring;
int_hex, cou: Integer;
begin
uni_char := HZ; // ansi轉(zhuǎn)換到 unicode 便于取字符串的個(gè)數(shù)漢字和英文寬度一致
cou := length(uni_char);
for I := 1 to cou do
begin
tem_char := uni_char[I]; // 寬字符取一個(gè)字在賦值到ansi 以便取gb2312字符
if length(tem_char) = 2 then
begin
HZ_bm1 := ord(tem_char[1]); // ansi字符取高位和低位的整數(shù)
HZ_bm2 := ord(tem_char[2]);
int_char := IntToHex(HZ_bm1, 2) + IntToHex(HZ_bm2, 2); // 直接利用字符合并成16進(jìn)制整數(shù)
int_hex := HexToInt(int_char); // 在把16進(jìn)制字符轉(zhuǎn)換成整數(shù)

case int_hex of
$B0A1 .. $B0C4:
retu_char := 'A';
$B0C5 .. $B2C0:
retu_char := 'B';
$B2C1 .. $B4ED:
retu_char := 'C';
$B4EE .. $B6E9:
retu_char := 'D';
$B6EA .. $B7A1:
retu_char := 'E';
$B7A2 .. $B8C0:
retu_char := 'F';
$B8C1 .. $B9FD:
retu_char := 'G';
$B9FE .. $BBF6:
retu_char := 'H';
$BBF7 .. $BFA5:
retu_char := 'J';
$BFA6 .. $C0AB:
retu_char := 'K';
$C0AC .. $C2E7:
retu_char := 'L';
$C2E8 .. $C4C2:
retu_char := 'M';
$C4C3 .. $C5B5:
retu_char := 'N';
$C5B6 .. $C5BD:
retu_char := 'O';
$C5BE .. $C6D9:
retu_char := 'P';
$C6DA .. $C8BA:
retu_char := 'Q';
$C8BB .. $C8F5:
retu_char := 'R';
$C8F6 .. $CBF9:
retu_char := 'S';
$CBFA .. $CDD9:
retu_char := 'T';
$CDDA .. $CEF3:
retu_char := 'W';
$CEF4 .. $D188:
retu_char := 'X';
$D1B9 .. $D4D0:
retu_char := 'Y';
$D4D1 .. $D7F9:
retu_char := 'Z';
else
retu_char := Char(0);
end;
end
else
begin
retu_char := UpperCase(tem_char);
end;
Result := Result + retu_char;
end;
end;

相關(guān)評(píng)說：

嬴芬19117219507： delphi 怎樣將記錄讀取到edit1.text中 -
咸寧市行星： ______ 這個(gè)簡(jiǎn)單,首先假設(shè)你只是想讀取這條記錄而已.如果不僅僅是這樣就給我發(fā)消息.如果假設(shè)成立,那么就簡(jiǎn)單了,用ADOTable+DataSource+DBEdit不用一句代碼即可實(shí)現(xiàn),如下:首先假設(shè)你已經(jīng)會(huì)連接Access數(shù)據(jù)庫(kù),如不會(huì)給我消息.【1...

嬴芬19117219507： delphi中如何獲取兩個(gè)edit的值是否一樣
咸寧市行星： ______ if edit1.text=edit2.text then 自己的顯示條件 else 自己的條件

嬴芬19117219507： Delphi中,如果我想提取edit.text的值賦給一個(gè)intger類型該怎么辦 -
咸寧市行星： ______ var i:integer; begin i:=strtoint(edit.text); end;

嬴芬19117219507： delphi 怎么取Edit1.Text中的左邊第一個(gè)字符
咸寧市行星： ______ var str,cha:string;begin str:=edit1.text; cha:=copy(str,1,1); showmessage(cha);end;

嬴芬19117219507： DELPHI中如何讓EDIT2如何自動(dòng)顯示EDIT1輸入的字符 比如,我在EDIT1中輸入任何信息,EDIT2就顯示任何信息 -
咸寧市行星： ______ Edit2.Text := Edit1.Text 這要看你在什么時(shí)候(或者說是什么事件里)實(shí)現(xiàn)這個(gè)功能,可以在一個(gè)按鈕的單擊事件里添加上述代碼,可以在edit1的更改事件里添加上述代碼,也可以在某個(gè)特定的程序段里添加上述代碼

嬴芬19117219507： delphi中如何實(shí)現(xiàn)在memo控件中同步顯示edit控件中的內(nèi)容? -
咸寧市行星： ______ 在BUTTON事件中添加如下代碼:Memo1.Lines.Add(Edit1.text); 要是把Memo1的內(nèi)容保存用如下代碼:Memo1.Lines.SaveToFile('C:\'+'test.txt');

嬴芬19117219507： delphi 如何使子窗體中的edit可編輯 -
咸寧市行星： ______ 如果說你純粹是想另一個(gè)窗體的edit可編輯 那是如下:Form2.Edit1.Enabled:=true; Form2.Edit1.ReadOnly:=false; 如果你的意思是想 父窗體和子窗體同時(shí)可編輯 那你用MDI窗體吧

嬴芬19117219507： 在DELPHI中如何得到一個(gè)文件名不帶擴(kuò)展名 -
咸寧市行星： ______ 方法是用ExtractFileExt對(duì)字符串FileName進(jìn)行提取:procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; fname,exts:string; begin fname:=Edit1.Text; exts := ExtractFileExt(fname); if exts = '' then //如果隱藏了擴(kuò)展名 begin fname ...

嬴芬19117219507： Delphi中如何查看其他程序上控件的標(biāo)題 -
咸寧市行星： ______ Var lpszWindowText:Array[0..254] of char; hHandle:THandle; Begin hHandle:=已知句柄; GetWindowText(hHandle, @lpszWindowText, 254); ShowMessage('其標(biāo)題為:'+StrPas(lpszWindowText)); End; 可以這樣獲取某窗口內(nèi)文本框的...

嬴芬19117219507： delphi里,用edit怎么查找listbox的字符啊? -
咸寧市行星： ______ 學(xué)習(xí)編程,你需要學(xué)會(huì)分解你的功能所需的步驟,例如:1. 從edit獲得你要找的字符2. 循環(huán)在 listbox 的項(xiàng)目中比較是否含有你要找的字符 至于具體每一步怎么做,就看你自己了