Delphi 弹窗显示SQL字符串

本文整理自网络，侵删。

 
////////////////////////////////////////////
//弹窗显示SQL字符串
//输入参数 sql     需要显示的SQL字符串
//例: ShowSqlString(ADOQ.SQL.Text);
////////////////////////////////////////////
procedure TBN.ShowSqlString(sql:string;isFull:boolean=false;sTitle:String='提示');
var
  Frm:Tform;
  Mo:Tmemo;
begin
  Frm:=Tform.Create(application);
  Frm.Width:=500;
  Frm.Height:=500;
  Frm.Caption:=sTitle;
  mo:=Tmemo.Create(frm);
  mo.Align:=alClient;
  mo.ScrollBars:=ssVertical;
  mo.Text:=sql;
  mo.Parent:=frm;
  if isFull then
  begin
    frm.Position:=poDefault;
    frm.WindowState:=wsMaximized;
  end
  else
    frm.Position:=poDesktopCenter;
  frm.ShowModal;
  freeandnil(frm);
end;

////////////////////////////////////////////
 

相关阅读 >>

Delphi exe注入代码

Delphi 在长文件名和短文件名之间转换

线程与进程的区别

Delphi dcc64.exe Delphi64位命令行编译器揭秘

Delphi 自带的 base64 编解码函数

Delphi 获取鼠标当前位置的相对坐标

Delphi 获取listbox1的行值

Delphi xe 制作的萤光时钟，可改作屏保

Delphi实现保存和读取图片的方法

Delphi 数据类型cardinal 怎么转换成 string？

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 弹窗显示SQL字符串