高分求两个函数！

[Knight_yin]

一个是字母转化为数字：
比如A->1,B->2,AB->28
第二个是数字转为字母：
比如1->A,2->B,27->AA
多谢了。

[liyangyao970]

呵呵!
快给我分啊，
开玩笑了.
我也是初学者,大家共同进步哟!

[liyangyao970]

function GetMyStrToInt(const s:string):integer;
var
i,j,k,t:integer;
begin
k:=length(s);
t:=0;
fori:=k down to 1 do
begin
j:=ord(s[K])-ord(A)+1;
t:=t*26+j;
end;
result:=t;
end;

[flyforlove]

现成的没有。
自己编吧。
比如
function i2s(i:integer):string;
beign
result:=char(i+64);
end;

[ezlz]

这相当于26进制的运算。
我自己因涉及到Excel写过的一个数值到字母的函数，反向的请楼主自己写吧。
function int2letter(num:integer):string;
const
LetterStr='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
i,j:integer;
begin
if num<=26 then
begin
result:=LetterStr[num];
end
else
begin
j:=num mod 26;
i:=num div 26;
if j=0 then
begin
j:=26;
i:=i-1;
end;
result:=int2letter(i)+LetterStr[j];
end;
end;

此函数效果如下： 28 ->AB
288->KB
269->JI

不知符楼主意否。

[liyangyao970]

二楼和四楼一正一反正好符全楼主的要求啊
楼主说话，还有佬

[akwa]

思路不难，懒!!!

[hongqi162]

up

[ezlz]

To ： liyangyao970(纳兰容若)

真好，我就不用想逆运算了，你的代码我要了。

[ezlz]

楼主度假了？ :(

[xiaoqiang123]

二楼和四楼说得好

[ezlz]

楼主提前过年了？ :(

[wave_f]

function GetMyStrToInt(const s:string):integer;
var
i,j,k,t:integer;
begin
k:=length(s);
t:=0;
fori:=k down to 1 do
begin
j:=ord(s[K])-ord(A)+1;
t:=t*26+j;
end;
result:=t;
end;