Скачать: CL | DM;

Delphi & Assembler   Найти похожие ветки 

← →
Blitz   (2006-02-20 23:50) [0]

Здравствуйте. Подскажите, пожалуйста, как можно обойтись без использования локальной переменной x в данном случае?
procedure TForm1.Button1Click(Sender: Оbject);
var
 x: Integer;
begin
 x := Form1.Height;
 asm
         MOV EAX, x
         INC EAX
         MOV x, EAX
 end;
 Form1.Height := x;
end;

---

← →
Yanis ©   (2006-02-21 00:25) [1]

form1.Height := form1.Height + 1;

---

← →
Blitz   (2006-02-21 00:37) [2]

2 Yanis: Действительно без икса :)

Но мой вопрос не в этом. Хотелось сделать нечто похожее на:
 MOV EAX, Form1.Height

---

← →
Дмитрий Белькевич ©   (2006-02-21 00:56) [3]

height - свойство, а не переменная.
Смотрим, что пишуть в ассембелере на height := height + 1:

mov edx, [eax + $4c]
inc edx
call tcontroll.setheight.

Всё логично: забираюь из fheight, и потом методом setheight устанавливают. Так чта... Халявы не будет.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c