Написать программу для перевода из 16-ричной системы счисления в 10-тичную, использовать процедурую(написать Delphi)

[BLADIMIR]

Написать программу для перевода из 16-ричной системы счисления в 10-тичную, использовать процедуру. Помогите пожалуйста

[BLADIMIR]

Сообщение от BLADIMIR

Написать программу для перевода из 16-ричной системы счисления в 10-тичную, использовать процедуру. Помогите пожалуйста

Ну кто нибудь помогите, а то к завтрашнему дню нужно...

[Alex11223]

Напишу за небольшое вознаграждение Webmoney или ЯД (контакты в подписи).

[Mad_Cat]

BLADIMIR, ловите

function HexToInt(s: string): Longword;
 var
   b: Byte;
   c: Char;
 begin
   Result := 0;
   s := UpperCase(s);
   for b := 1 to Length(s) do
   begin
     Result := Result * 16;
     c := s[b];
     case c of
       '0'..'9': Inc(Result, Ord(c) - Ord('0'));
       'A'..'F': Inc(Result, Ord(c) - Ord('A') + 10);
       else
         raise EConvertError.Create('No Hex-Number');
     end;
   end;
 end;