Форум: "Прочее";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];
ВнизLDSLogger Найти похожие ветки
← →
Суслик © (2007-04-10 15:13) [37]
> программы аж на пол-такта.
о, блин, опытный какой - такты умеет считать.
сравни (я не поленился, а вот ты поленился это сделать){$o+}
procedure TestConst(const S: String);
begin
ShowMessage(S);
(*
Unit1.pas.38: ShowMessage(S);
0046B66C E8E391FCFF call ShowMessage
Unit1.pas.55: end;
0046B671 C3 ret
0046B672 8BC0 mov eax,eax
*)
end;
procedure TestNoConst(S: String);
begin
ShowMessage(S);
(*
Unit1.pas.52: begin
0046B674 55 push ebp
0046B675 8BEC mov ebp,esp
0046B677 51 push ecx
0046B678 8945FC mov [ebp-$04],eax
0046B67B 8B45FC mov eax,[ebp-$04]
0046B67E E8B994F9FF call @LStrAddRef
0046B683 33C0 xor eax,eax
0046B685 55 push ebp
0046B686 68AFB64600 push $0046b6af
0046B68B 64FF30 push dword ptr fs:[eax]
0046B68E 648920 mov fs:[eax],esp
Unit1.pas.53: ShowMessage(S);
0046B691 8B45FC mov eax,[ebp-$04]
0046B694 E8BB91FCFF call ShowMessage
Unit1.pas.84: end;
0046B699 33C0 xor eax,eax
0046B69B 5A pop edx
0046B69C 59 pop ecx
0046B69D 59 pop ecx
0046B69E 648910 mov fs:[eax],edx
0046B6A1 68B6B64600 push $0046b6b6
0046B6A6 8D45FC lea eax,[ebp-$04]
0046B6A9 E8DA8FF9FF call @LStrClr
0046B6AE C3 ret
*)
end;
Страницы: 1 2 вся ветка
Форум: "Прочее";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.046 c