5,388
社区成员
发帖
与我相关
我的任务
分享這句不懂￣￣教教￣￣
function F32To10(Dat: string): Integer;
var
j1, j2: Integer;
begin
if Length(Dat) <= 1 then
Result := pos(Dat, '0123456789ABCDEFGHJKLMNPRSTVWXYZ') - 1
else
begin
j1 := (pos(Copy(Dat, 1, 1), '0123456789ABCDEFGHJKLMNPRSTVWXYZ') - 1) * 32;
j2 := pos(Copy(Dat, 2, 1), '0123456789ABCDEFGHJKLMNPRSTVWXYZ') - 1;
Result := j1 + j2;
end;
end;
var
j1, j2: Integer;
begin
if Length(Dat) <= 1 then
Result := pos(Dat, '0123456789ABCDEFGHJKLMNPRSTVWXYZ') - 1
else
begin
j1 := (pos(Copy(Dat, 1, 1), '0123456789ABCDEFGHJKLMNPRSTVWXYZ') - 1) * 32;
j2 := pos(Copy(Dat, 2, 1), '0123456789ABCDEFGHJKLMNPRSTVWXYZ') - 1;
Result := j1 + j2;
end;
end;
...全文
请发表友善的回复…
发表回复
阿土sap 2004-08-25
- 打赏
- 举报
cnhgj(戏子▄︻┳═一打你家玻璃一═┳︻▄)
我是不会结帖!!!!!!!!
我是不会结帖!!!!!!!!
getter 2004-08-22
- 打赏
- 举报
竟然用POS求得的值來算,我又學到東西了,謝謝各位
cnhgj 2004-08-22
- 打赏
- 举报
再B4下。。又多了一个JR
阿土sap 2004-08-22
- 打赏
- 举报
cduck(cduck) 兄
太了解我的痛苦了，知已!!!
太了解我的痛苦了，知已!!!
ExSystem 2004-08-18
- 打赏
- 举报
快结！！！！！！
lingco 2004-08-16
- 打赏
- 举报
就20分也不结？？
cduck 2004-08-16
- 打赏
- 举报
我看你是不会结帖
阿土sap 2004-08-10
- 打赏
- 举报
哎!!!!好吧!!
ExSystem 2004-08-09
- 打赏
- 举报
这年头得点分都不容易～
帮帮忙！！
寒～～
帮帮忙！！
寒～～
cnhgj 2004-08-08
- 打赏
- 举报
b4
BigAngell 2004-08-08
- 打赏
- 举报
学习
rcaicc 2004-08-08
- 打赏
- 举报
b4
lovedata 2004-08-08
- 打赏
- 举报
楼主，如果你故意不揭帖的话，以后不会再有人帮你回答问题了！
flyforlove 2004-08-08
- 打赏
- 举报
//我一般都不是结的~~~~
好~！酷！
好~！酷！
阿土sap 2004-08-06
- 打赏
- 举报
我一般都不是结的~~~~
ExSystem 2004-07-27
- 打赏
- 举报
TO 飞飞:
麻烦你快点结帖
………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………
麻烦你快点结帖
………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………
QSmile 2004-07-26
- 打赏
- 举报
对
用 power 更好
用 power 更好
ExSystem 2004-07-26
- 打赏
- 举报
TO 飞飞:
等着到5个，帮帮我吧…………
如果你也帮人家回答问题，那你也快了……
等着到5个，帮帮我吧…………
如果你也帮人家回答问题，那你也快了……
ly_liuyang 2004-07-24
- 打赏
- 举报
呵呵
长弓落日 2004-07-24
- 打赏
- 举报
幸亏我没答~嘿嘿
加载更多回复（9）
