как переписать в 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(filename, 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
|