[Vayrus]

Всем привет, возникла проблема перевода строки $0AC0E9 в Int64 для использования в функции обновления исполняемых файлов.

Код:

1 2 3 4 5 6 7

var H: Int64; begin H := ???('$0AC0E9'); .................. f.Seek(H{$0AC0E9}, soFromBeginning); .................

[lmikle]

HexToInt и без первого символа ($). Может так пройдет?

[Vayrus]

> HexToInt и без первого символа ($). Может так пройдет?

Может и подошло бы, а где взять то эту функцию ???

[Vayrus]

нарыл что то, ща проверю

[Vayrus]

Код:

1 2 3 4

function HexToInt(HexNum: string): LongInt; begin    Result:=StrToInt('$' + HexNum) ; end;

[Drozh]

Так

Код:

1 2 3

H := StrToInt('$0AC0E9');   f.Seek(H, soFromBeginning);

либо

Код:

1	f.Seek($0AC0E9, soFromBeginning);

[Vayrus]

Всем спасибо, чет тупил, вернее думал, что StrToInt переведет неправильно, но работает