преобразование имени файла (фото) для хранения в базе

[RinatKzn]

тут пришлось использовать сторонние готовые dbf-файлы

так там есть каталог с большим количеством jpg-файлов с именами вида "201103041234.jpg"
а соответствующие записи в базе (поле Строка 7) в виде "$bPk>]B"

я не пойму, что это за преобразование такое,
и как получить из "$bPk>]B" конкретное название "201103041234.jpg"

[RinatKzn]

.................

[RinatKzn]

кое как нашел в ReFоxe, что это 142-ричное преобразование

теперь пока не могу въехать) какая функция и есть ли такая в delphi:

CHRTRAN (Foxpro)

Синтаксис:

CHRTRAN(cSearchedExpression, cSearchExpression, cReplacementExpression)

Параметры:
cSearchedExpression
Задает выражение, в котором функция CHRTRAN( ) будет заменять символы.
cSearchExpression
Задает выражение, содержащее символы, которые CHRTRAN( ) будет искать в выражении cSearchedExpression.
cReplacementExpression
Задает выражение, содержащее символы замены.
Если какой-либо символ из выражения cSearchExpression найден в выражении cSearchedExpression, то этот символ в cSearchedExpression замещается символом из выражения cReplacementExpression, находящимся на той же позиции в cReplacementExpression, что и соответствующий символ в выражении cSearchExpression.
Если в выражении cReplacementExpression меньше символов, чем в cSearchExpression, лишние символы выражения cSearchExpression удаляются из cSearchedExpression. Если в cReplacementExpression больше символов, чем в cSearchExpression, эти лишние символы выражения cReplacementExpression игнорируются.

[RinatKzn]

как переписать в delphi ?


codedfilename = "$b8=R--"
filename = ""
sourcedir = "C:\"

Form1.label1.caption = STR(cton(codedfilename, 142, 34), 14)
filename = STR(cton(codedfilename, 142, 34), 14)
Form1.label2.caption = ADDBS(sourcedir)+ADDBS(LEFT(filenam e, 7))+filename+'.jpg'

FUNCTION cton
PARAMETER string, p, shift
PRIVATE k, nresult
nresult = 0
string = CHRTRAN(string, CHR(33), '')
FOR k = 1 TO LEN(string)
nresult = nresult*p+ASC(SUBSTR(string, k, 1))-shift
ENDFOR
RETURN nresult
ENDFUNC

[Аватар]

Как-то так:

function Cton(Text: String): Int64;
var i: Integer;
begin
  Result:=0;
  for i:=1 to Length(Text) do
    if Ord(Text[i])<>33 then Result:=Result*142+Ord(Text[i])-34;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=IntToStr(Cton('$bPk>]B'));
end;

[RinatKzn]

спасибо) все работает)