Ошибка при переводе числа

[Marsel737]

И снова здрасте.

С сайта взял http://www.excode.ru/art5629p5.html пример перевода числа из шестнадцатеричой в десятичную систему счисления, но не работает пишет что не соответствие типов Char и String:

Uses Math; 
... 
function HexToDec(const HexStr: string): integer; 
var 
  v, i: integer; 
begin 
  Result := 0; 
  for i := 1 to Length(HexStr) do 
  begin 
    if HexStr in ['0'..'9'] then v := Ord(HexStr) - Ord('0') else 
    if UpCase(HexStr) in ['A'..'F'] the n 
    v := ord(UpCase(HexStr)) - Ord('A') - 10 else 
    begin 
      Result := 0; 
      exit; 
    end; 
    Result := Result + v * Round(Power(16, Length(HexStr) - i)); 
  end; 
end;

Тогда написал вместо string'а char, всё заработало, но возникла новая проблема:

Edit1.Text:=IntToStr(HexToDec(Edit1.Text))

Тут теперь несоответствие типов. Подскажите как решить проблему

[ОДИНОЧЕСТВО В СЕТИ]

не проще

edit1.text:= inttostr(strtoint('$'+Edit1.Text));

[Marsel737]

ОДИНОЧЕСТВО В СЕТИ, спасибо за помощь, буду знать.

Знаю правило - Одна тема один вопрос, но всё же вопрос из той же оперы, есть вот такая функция для определения хэндла окна:

h:=FindWindow(nil,'Мой копьютер');

Так вот хотел сделать ввод с edit'а любых значений вместо 'Мой компьютер', но там несоответствие типов тоже PAnsiChar и String. Может тоже можно как то эту проблему решить.

[ОДИНОЧЕСТВО В СЕТИ]

h:=FindWindow(nil,pchar(edit1.text));

[Marsel737]

ОДИНОЧЕСТВО В СЕТИ, даже не знаю как вас благодарить...