Как значение в Edit преобразовать в Hex значение.

← →
Dima1 (2003-05-23 17:59) [0]

Есть некий TEdit. В его свойстве TEXT - есть строка, содержащая текст (код) например: AE34FD4B. Как мне этот текст поместить в регистр, например EAX процессора, чтобы он в нем оказался в таком же виде.

Может у кого есть готовая функция, буду признателен.
Спасибо.

← →
MBo © (2003-05-23 18:07) [1]

StrToInt("$"+edit.text)

← →
Skier © (2003-05-23 18:13) [2]

procedure HexTextToRegister(const AHexText: String;
const AUseHexPrefix : Boolean);
var
AInt : Integer;
begin
try
if AUseHexPrefix then AInt := StrToInt("$" + AHexText)
else AInt := StrToInt(AHexText);
asm
MOV EAX, AInt;
//.............
end; //asm
except
ShowMessage("Ошибка !");
end; //try
end; //HexTextToRegister

//.........................

HexTextToRegister("$0000FFFF", False);
HexTextToRegister("0000DFAE", True);

← →
MBo © (2003-05-23 18:21) [3]

>Skier
Есть гарантия, что после процедуры eax сохранится?

← →
Skier © (2003-05-23 18:26) [4]

>MBo © (23.05.03 18:21)
Нет.
Но ты после MOV EAX, AInt; видел многоточие ? :)

← →
MBo © (2003-05-23 18:31) [5]

понЯл
:)

При таком вопросе до EAX вряд ли вообще дело дойдет.

← →
Dima1 (2003-05-23 22:56) [7]

> Anatoly Podgoretsky
Ну вы приколист :)
Дойдет ! еще как дойдет ! Просто как то, не приходилось так делать.

> MBo Спасибо.

Что говорится: Век живи, век учись :)
В любом професионализме есть доля лоховства.

Спасибо тема закрыта !

Как значение в Edit преобразовать в Hex значение. Найти похожие ветки