[Bad-Teo]

Добрый день.
На калькуляторе сделал расчет. Взял шестнадцатеричное значение 1206 умножил на 20 получил 240С0. Затем перевел в десятичное (dec) и получил результат 147648.



Подскажите пожалуйста кодом как такой расчет сделать на Delphi если значение буду вводит в Edit.

[x128]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c: integer;
begin
  a:=0; b:=0; c:=0;
  TryStrToInt(Edit1.Text, a);
  TryStrToInt(Edit2.Text, b);
  c:=a*b;
  Edit3.Text:=IntToHex(c, 4);
  Label1.Caption:=IntToStr(c);
end;

scr.png

[Bad-Teo]

Вопрос. А как можно сделать проще.
Скажем в Edit1 ввожу 1206, а в Edit2 получаю 147648

[x128]

Куда еще проще? Если речь про ввод числа без префикса, то его можно явно указать в коде: StrToInt('$'+Edit1.Text).

[Bad-Teo]

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

Куда еще проще? Если речь про ввод числа без префикса, то его можно явно указать в коде: StrToInt('$'+Edit1.Text).

Я имел ввиду чтобы сделать вот так:

[Bad-Teo]

Код:

Edit2.Text := IntToStr(StrToInt('0x'+Edit1.Text) * StrToInt('$20'));

Я правильно сделал ?

[x128]

Если 20 это константа, то как я написал выше, т.е.: Edit2.Text:=IntToStr(StrToInt('$'+Edit1.Text)*$20) ;
scr.png

[Bad-Teo]

Возник еще вопрос. А как правильно делать сложение и вычитание чисел, представленных в шестнадцатиричной форме ?
Например FFFF - 1206 = EDF9

[x128]

Символ $ перед числом указывает на шестнадцатеричный формат: i:=$FFFF - $1206.