[RinatKzn]

Использовал)
что-то не получается

foxpro зарустил, вывод 20100921242669

а delphi 474297389
что я делаю не правильно?

Код:

function  cton (s:string;p,shift:integer):integer;
var
     k,j:integer;
        c:string;
begin
        result:=0;
        s:=StringReplace(s,chr(33),'',[rfReplaceAll]);
        for k:=1 to Length(s) do
                begin
                        c:=copy(s,k,1);
                        j:=ord(c[1]);
                        result:=result*p+j-shift;
                end;
end;

procedure  TForm1.Button1Click(Sender: TObject);
var
        codedfilename:string;

begin
        codedfilename:='$b8=R--';

        showMessage(inttostr(cton(codedfilename,142,34)));


end;