Нужно разработать две функции DecToHex() и HexToDec

[-=Mafia=-]

На с++ это выглядит и работает так:

Edit2->Text = StrToInt("0x" + Edit1->Text); // из HEX в DEC
Edit3->Text = IntToHex(Edit2->Text.ToInt() + 12, 8); // из DEC в HEX

К это будет работать на Delphi???

[mss]

Edit2.Text := StrToInt("$'+ Edit1.Text); // из HEX в DEC
Edit3.Text := IntToHex(StrToInt(Edit2.Text), 8); // из DEC в HEX

[-=Mafia=-]

[DCC Error] Unit3.pas(31): E2010 Incompatible types: 'string' and 'Integer'

ошибка в первой строке

[SERG1980]

Сообщение от -=Mafia=-

[DCC Error] Unit3.pas(31): E2010 Incompatible types: 'string' and 'Integer'

ошибка в первой строке

ну дык знак долара должен быть в одиночных кавычках

[-=Mafia=-]

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

ну дык знак долара должен быть в одиночных кавычках

он в одиночных кавычках

[SERG1980]

Сообщение от -=Mafia=-

он в одиночных кавычках

Edit2.Text := StrToInt("$'+ Edit1.Text); // из HEX в DEC

1. Ну и где же здесь одиночные
2. Давно ли в для записи в едит используют ф-ию StrToInt

Edit2.Text :=IntToStr(StrToInt('$'+ Edit1.Text));

[-=Mafia=-]

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

Edit2.Text := StrToInt("$'+ Edit1.Text); // из HEX в DEC

1. Ну и где же здесь одиночные
2. Давно ли в для записи в едит используют ф-ию StrToInt

Edit2.Text :=IntToStr(StrToInt('$'+ Edit1.Text));

я имел ввиду что у меня исправлено на одиночные

спасибо, все работает.

[flexterful]

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

Edit2.Text :=IntToStr(StrToInt('$'+ Edit1.Text));

Вот это ещё имелось ввиду