может я чтото не так делаю по сетоду Imikle или не понял.. (спс за нижеприведенный код)
Код:
function sti(str: string): int64;
var
i: integer;
f: int64;
begin
f:=0;
for i:= Length(str) downto 0 do
f:= f + (ord(str[i])-ord('1'))*(Length(str)+1);
result := f;
end;