HexToInt.

[VintProg]

Подскажите где можно найти такую функцию:

HexToInt(Str : string): integer;

[Serge_Bliznykov]

так пойдёт?

function HexToInt(Str : string): integer;
var i, r : integer;
begin
  val('$'+Trim(Str),r, i);
  if i<>0 then HexToInt := 0 {была ошибка в написании числа}
  else HexToInt := r;
end;

[VintProg]

Serge_Bliznykov
Да не плохо работает, а это ты сам придумал?

[VintProg]

Serge_Bliznykov
Да не плохо работает, а это ты сам придумал?

[Serge_Bliznykov]

Да не плохо работает, а это ты сам придумал?

даже не знаю, что ответить..
Да. Но я просто знал о том, что функция VAL понимает 16-чные числа в строке.... Дальше уже дело техники..

p.s. тут на форуме как-то подобное уже обсуждалось...

[Пепел Феникса]

StrToInt если не ошибаюсь строки такого вида как $FF тоже переводит.

[Serge_Bliznykov]

StrToInt если не ошибаюсь строки такого вида как $FF тоже переводит.

Вы абсолютно правы.

[Alter]

Ещё так

Function HEXToDec(S :String):Integer;
Var
 Otv, Step, I,II :LongInt;
 Chislo :LongInt;
begin
 Otv := 0;
  II := Length(S);
 Step := -1;
  Result := 0;
 For I:=II DownTo 1 Do
 begin
  Inc( Step );
   case S[I] of
  'A','a': Chislo := 10;
  'B','b': Chislo := 11;
  'C','c': Chislo := 12;
  'D','d': Chislo := 13;
  'E','e': Chislo := 14;
  'F','f': Chislo := 15;
  '0'..'9': Chislo := StrToInt(S[I]);
   end;
  Otv := Otv + Round(Chislo *Exp(Step*Ln(16)) );
 end;
  Result := Otv;
end;

[Sibedir]

А вот так можно наоборот:

function IntToHex (AValue: Integer): String;
begin
  Result := '$0000000' + Format ('%x', [AValue]);
  Delete (Result, 2, Length(Result) - 9)
end;

[Пепел Феникса]

Sibedir, обратная функция итак по стандарту есть в Делфи.