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 webbrowser的关于流载入流保存和流生成

Delphi 列出所有可视窗口

Delphi截取技巧 lastdelimiter

Delphi 控制滚动条

Delphi getfilehashmd5获取文件 hashmd5值

Delphi获取jpg、gif、png等格式图片的大小（高度和宽度）

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi listview1 中添加check选中事件

Delphi 用拼音首字符检索汉字的源代码

Delphi 自动关闭弹出的窗口

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

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