Wird vielleicht so was gesucht (?):
Delphi-Quellcode:
//NumberToLiteralNumber
function NumToLitNum(n:Int64):string;
//n=0-a,1-b,25-z,26-aa,27-ab,...
const
cLiteralCount=26;
function GetLiteral(z:Integer):string;
begin
result:=Chr(65+z);
end;
var
i:Integer;
begin
result:='';
While n>=cLiteralCount do begin
i:=n div cLiteralCount;
result:=GetLiteral(n-(i*cLiteralCount))+result;
n:=i-1;
end;
result:=GetLiteral(n)+result;
end;