перевод системы исчисления (16 ->10)

[adwaer]

Я слышал что можно с помощью askii кодов (функция ord), но тут же еще нужно учитывать многое..

[Alar]

конвертирование Hex -> Text и Float -> Int

[rpy3uH]

допустим в Edit1 написано 16-ричное число:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  i:=StrToInt('$'+Edit1.Text);
  ShowMessage(inttostr(i));
end;

[adwaer]

огромное всем спасибо!
Грузин, такой гениальной простоты реализации я еще не видел! Поистине краткость - сестра таланта

[Serge_Bliznykov]

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

Грузин, такой гениальной простоты реализации я еще не видел! Поистине краткость - сестра таланта

Ничуть не принижая гениальность решения задачи rpy3uHом, просто хочу заметить:
1. это не совсем "честное" решение (т.к. используются возможности встроенных функций преобразования).
Т.е. для реальной практической задачи — то пойдёт, а вот если задача была учебная - то, боюсь, препода не устроит такое решение ;-)))

2. можно было бы записать ещё короче (и переменная i не потребуется)
ShowMessage(inttostr(StrToInt('$'+E dit1.Text)));

3. Этот код будет работать только в Дельфи.
(правда в Pascal можно получить аналогичное решение через val:

var  i,k : integer;
  s : string;
begin
  s := '$12';
  Val(s,i,k);
  Writeln(i:1);
end.

[adwaer]

ну препод тупо не будет копаться во всем программном коде)) главное чтоб работало.. а прога длинной в текущий момент 1150 строк..