摘要：
{ No.1 判断逻辑类型 }
var B: Boolean;
begin
B := Boolean(2); //这样只是为了调试//B := True;
if B = True then ShowMessage('B = True'); //不建议//不安全
///////
if B then ShowMessage('B'); //建议//简短
end;
var B: Boolean;
begin
if Edit1.Text = '是' then //不建议//烦琐
B := True
else B := False;
///////
B := Edit1.Text = '是'; //建议//简短
end;
阅读全文
摘要：
一、Owner和Parent的区别：
Parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下：
(1)在Form1的窗体上，放一个Panel1,并将Panel1拉大， 阅读全文
摘要：
使用方法, uses 本单元——>使用如:Pub.MsgBox('你好，欢迎使用本公用函数！');
ShowMessage(Pub.PathExeDir);
阅读全文
摘要：
一、打印dbgrid数据：
//==============================================================================
//打印DBGrid中的所有数据********************************************************
//==============================================================================
procedure DBGridPrint(DBGrid: TDBGrid; Title: string);
var PrintDialog: TPrintDialog;
RowHeight, Temp_X, Temp_Y, PageEdgeX, PageEdgeY, PixelsPerInchX, PixelsPerInchY: integer;
TempStr: string;
Scale: Double;
Rect: TRect; 阅读全文