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;

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

推荐分享