mov edx,s? 我试了也是这样。对了,call ShowMessage,,,它的内容是从哪里来的。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 call ShowMessage 是从Dialog.pas来。uses Windows,Messages....Dialogs;看到了吧? 可以显示呀!procedure TForm1.Button1Click(Sender: TObject);var s: string;begin s:='DelphiX'; asm lea eax,[ebp-$04] // <-- Dest mov edx,s // <--Source call system.@LStrLAsg // <--Copy String mov eax,[ebp-$04] //堆栈里取出S call ShowMessage end;end; 大哥,我说的意思是,用asm lea eax,[ebp-$04] // <-- Dest mov edx,s // <--Source call system.@LStrLAsg // <--Copy String代替Pascal写的: s:= 'DelphiX'; 1111 求救!用idhttp组件下载的问题,散分50! 关于表格(数据库),点击标题栏排序的问题,如何实现? 在线等价!!大家用什么文件保存登录密码的呀?? 怎样在ProgressBar上显示与Postion同步的进度字符? QQ上好友上线,马上能看到,下线隐身,图标变成灰色的了,怎么实现的? 到哪里找第三方控件?? 在WIN98UDL连接问题 如何实现win+鼠标左键 win+鼠标中键 win+鼠标右键 的热键啊? 如何在DBgrideh里的特定单元格添加一个图片!! 关于DELPHI中向SQL2000中插入记录的问题! 怎样禁用资源管理器呢?
是从Dialog.pas来。
uses Windows,Messages....Dialogs;看到了吧?
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:='DelphiX';
asm
lea eax,[ebp-$04] // <-- Dest
mov edx,s // <--Source
call system.@LStrLAsg // <--Copy String
mov eax,[ebp-$04] //堆栈里取出S
call ShowMessage
end;
end;
asm
lea eax,[ebp-$04] // <-- Dest
mov edx,s // <--Source
call system.@LStrLAsg // <--Copy String代替Pascal写的:
s:= 'DelphiX';