delphi读取ini文件(转)

摘自：http://www.adsldown.com/article/8251.html
关键字/核心提示：[标签:副标题]INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、 VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi提供了一个TInifile 类，使我们可以非常灵活的处理INI文件一．INI文件的...

INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件

一．INI文件的结构

[小节名]ini文件

要害字1＝值1

要害子2＝值2

INI文件答应有多个小节，每个小节又答应有多个要害字，"="后面是该要害字的值。

值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。

二、定义

1、在Interface的Uses节增加IniFiles；

2、在Var变量定义部分增加一行：myinifile:Tinifile;

定义类的一个实例。然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。

三、打开INI文件

myinifile:=Tinifile.create(program.ini);

上面这一行语句将会为变量myinifile与具体的文件program.ini建立联系，然后，就可以通过变量myinifile，来读写program.ini文件中的要害字的值了。

值得注重的是，假如括号中的文件名没有指明路径的话，那么这个Program.ini文件会存储在Windows目录中,把Program.ini文件存储在应用程序当前目录中的方法是：为其指定完整的路径及文件名。下面的两条语句可以完成这个功能：

Filename:=ExtractFilePath(Paramstr

(0)) program.ini;

myinifile:=Tinifile.Create(filename);

五、写入INI文件

同样的，TInifile类也提供了三种不同的对象方法，向INI文件写入字符串、整型数及布尔类型的要害字。

myinifile.writestring(小节名,要害字,变量或字符串值);

myinifile.writeinteger(小节名,要害字,变量或整型数值);

myinifile.writebool(小节名,要害字,变量或True或False);

当这个INI文件不存在时，上面的语句还会自动创建该INI文件。

六、删除要害字

除了可用写入方法增加一个要害字，Tinifile类还提供了一个删除要害字的对象方法：

myinifile.DeleteKey(小节名,要害字);

七、小节操作

增加一个小节可用写入的方法来完成，删除一个小节可用下面的对象方法：

myinifile.EraseSection(小节名);

另外Tinifile类还提供了三种对象方法来对小节进行操作：

myinifile.readsection(小节名,TStrings变量);可将指定小节中的所有要害字名读取至一个字符串列表变量中；

myinifile.readsections(TStrings变量);可将INI文件中所有小节名读取至一个字符串列表变量中去。

myinifile.readsectionvalues(小节名,TStrings变量);可将INI文件中指定小节的所有行（包括要害字、=、值）读取至一个字符串列表变量中去。

八、释放

在适当的位置用下面的语句释放myinifile：

myinifile.distory;

下 面是具体例子。源代码如下。创建了一个myini.ini文件，有一个名为newini的小节，有3个要害字"用户名称""已运行时间""是否正式用 户"。运行效果，可以在edit1里边填入"用户名称"；edit2显示时间，不可以改变数值；checkbox1通过打勾，保存时间和"用户名称"进入 myini.ini文件里边，重新打开应用程序时，显示的时保存下来的时间和填入的"用户名称"，假如在myini.ini文件里边修改，效果和在程序运 行过程中修改时一样的。

unitUnit1;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,inifiles,StdCtrls,ExtCtrls;

{调用inifiles类}

type

TForm1=class(TForm)

Label1:TLabel;

Label2:TLabel;

Label3:TLabel;

Edit1:TEdit;

Edit2:TEdit;

Timer1:TTimer;

CheckBox1:TCheckBox;

procedureFormCreate(Sender:TObject);

procedureFormDestroy(Sender:TObject);

procedureTimer1Timer(Sender:TObject);

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form1:TForm1;

implementation

var

myinifile:TInifile;

{定义一个类的实例}

{$R*.dfm}

procedureTForm1.FormCreate(Sender:TObject);

var

filename:string;

begin

{下面两行的书写形式，在应用程序的路径下创建ini文件}

filename:=ExtractFilePath(paramstr(0)) 'myini.ini';

myinifile:=TInifile.Create(filename);

edit1.Text:=myinifile.ReadString('newini','用户名称','胡长浩');

edit2.text:=inttostr(myinifile.readinteger

('newini','已运行时间',0));

checkbox1.Checked:=myinifile.readbool

('newini','是否正式用户',False);

{newini是小节名字，中间字段是要害字的名字，第三个字段是缺省值。当myini.ini不存在时，上面的语句自动创建这个文件，上边几行里的引号是单引号}

end;

procedureTForm1.FormDestroy(Sender:TObject);

begin

myinifile.writestring('newini','用户名称',edit1.Text);

myinifile.writeinteger('newini','已运行时间',

strtoint(edit2.text));

myinifile.writebool('newini','是否正式用户',

checkbox1.Checked);

myinifile.Destroy;

end;

procedureTForm1.Timer1Timer(Sender:TObject);

begin

edit2.Text:=inttostr(strtoint(edit2.text) 1);

end;

end.

ini文件

---

全国最低价，天天在家冲照片，24小时发货上门！

delphi DBgrid 使用大全(转)

摘自：http://beeone.blog.163.com/blog/static/179615222009221729595/

在DELPHI中经常用到网格控件（DBGrid）显示数据，网格控件只提供了每一行的颜色属性，但在实际应用中我们经常希望它按某一行某一项的取值不同显示不同的颜色，甚至在网格中的单位表格项中显示出图像等等，下面我们以一个简单的例子来告诉大家怎么做。

　　比如我们要求如果春季有退书用红色表示，如果秋季有退书用黄色表示

　　 　

　 　利用DBGrid自绘功能可以很容易地实现这样的要求。用户可以处理DBGrid的OnDrawColumnCell事件，在其中实现特殊的效果。要判 断记录是否满足要求，可以使用DBGrid的DataLink属性获得数据，但DBGrid的DataLink属性属于保护成员，必须在 TCustomDBGrid的子类中调用。

type
TMyCustomDBGrid = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
sCjts,sQjTs:String;
begin
with TMyCustomerDBGrid(Sender) do
begin
Cjts:=DataLink.Fields[5].AsString;
sQjts:=DataLink.Fields[9].AsString;
if sCjts<>'' then　　　　　　　//春季退书数量>0的用红色显示
Canvas.Brush.Color := clRed
else
if sQjts<>'' then　　　　　　//秋季退书数量>0的用黄色显示
Canvas.Brush.Color := clYellow
else
Canvas.Brush.Color:=clWhite;
Canvas.Font.Color:=clBlack;
canvas.fillrect(rect);
canvas.textout(rect.left+4,rect.top+4,Column.Field.AsString);
end;
end;

　　由此方法可以延伸出其它控件的多种修饰方法，比如可以按数据项值采用不同的颜色，可以按记录号显示不同的颜色。总之，灵活应用canvas、rect及bitmap等对象，可以将各种网格装饰得绚丽多彩。

如何才能得到DBGRID的行号，而不是数据集的行号？
Edit1.Text :=inttostr(TDrawGrid(DBGrid1).Row);
http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。
以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。
示例程序的运行：
在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序，就可以看到神奇的结果了。本代码在 Windows98、Delphi5.0 环境下调试通过。
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
var i :integer;
begin
if gdSelected in State then Exit;
//定义表头的字体和背景颜色：
for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
begin
(Sender as TDBGrid).Columns[i].Title.Font.Name :='宋体'; //字体
(Sender as TDBGrid).Columns[i].Title.Font.Size :=9; //字体大小
(Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff; //字体颜色(红色)
(Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; //背景色(绿色)
end;
//隔行改变网格背景色：
if Query1.RecNo mod 2 = 0 then
(Sender as TDBGrid).Canvas.Brush.Color := clInfoBk //定义背景颜色
else
(Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); //定义背景颜色
//定义网格线的颜色：
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
with (Sender as TDBGrid).Canvas do //画 cell 的边框
begin
Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
MoveTo(Rect.Left, Rect.Bottom); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
Pen.Color := $0000ff00; //定义画笔颜色(绿色)
MoveTo(Rect.Right, Rect.Top); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
end;
end;

Delphi中ListView类的用法(转)

摘自：http://blog.csdn.net/h526306/archive/2010/03/18/5391116.aspx

    ListView在delphi中算是使用得比较多吧，对于初学者，这个类并不是很好学，下面对网上的一些帖子进行整理。

//增加
   i := ListView1.Items.Count;   //这里得到的是ListView中的行数，也叫项数（Items）
   with ListView1 do
   begin
     ListItem:=Items.Add;   //这里相当于增加一行
     ListItem.Caption:= IntToStr(i);   //ListView的第一列是Caption，这是固定的
     ListItem.SubItems.Add('第 '+IntToStr(i)+' 行'); //这是每行第二列的内容
     ListItem.SubItems.Add('第三列内容');
   end;

//按标题删除
   for i:=ListView1.Items.Count-1 downto 0 Do
     if ListView1.Items[i].Caption = Edit1.Text then
     begin
       ListView1.Items.Item[i].Delete();   //删除第一列的值等于Edit1.Text的行
     end;

//选中一行
   if ListView1.Selected <> nil then
   Edit1.Text := ListView1.Selected.Caption;

//    listview1.Items[Listview1.Items.Count -1].Selected := True;
//    listview1.Items[Listview1.Items.Count -1].MakeVisible(True);  

// 选择第一行（项）

procedure TForm1.Button2Click(Sender: TObject);
begin
   listview1.SetFocus;
   listview1.Items[0].Selected := True;
end;

// 选择最后一行（项）
procedure TForm1.Button1Click(Sender: TObject);  
begin
   listview1.SetFocus;
   listview1.Items[Listview1.Items.Count -1].Selected := True;
end;  

//此为调用过程，可以任意指定要移动的Item，下面是当前(Selected)Item
procedure ListViewItemMoveUpDown(lv : TListView; Item : TListItem; MoveUp, SetFocus : Boolean);
var
   DestItem : TListItem;
begin
   if (Item = nil) or
      ((Item.Index - 1 < 0) and MoveUp) or
      ((Item.Index + 1 >= lv.Items.Count) and (not MoveUp))
     then Exit;
   lv.Items.BeginUpdate;
   try
     if MoveUp then
       DestItem := lv.Items.Insert(Item.Index - 1)
     else
       DestItem := lv.Items.Insert(Item.Index + 2);
     DestItem.Assign(Item);
     lv.Selected := DestItem;
     Item.Free;
   finally
     lv.Items.EndUpdate;
   end;
   if SetFocus then lv.SetFocus;
   DestItem.MakeVisible(False);
end;


   ListViewItemMoveUpDown(ListView1, ListView1.Selected, True, True); //上移
   ListViewItemMoveUpDown(ListView1, ListView1.Selected, False, True); //下移


TListView组件使用方法

引用CommCtrl单元

procedure TForm1.Button1Click(Sender: TObject);
begin
   ListView_DeleteColumn(MyListView.Handle, i);  //i是要删除的列的序号，从0开始
end;

用LISTVIEW显示表中的信息：
procedure viewchange(listv:tlistview;table:tcustomadodataset;var i:integer);
   begin
     tlistview(listv).Items.BeginUpdate;    {listv:listview名}
     try
       tlistview(listv).Items.Clear;
       with table do          {table or query名}
       begin
         active:=true;
         first;
         while not eof do
         begin
           listitem:=tlistview(listv).Items.add;
           listitem.Caption:=trim(table.fields[i].asstring);//Trim去掉字符串前后的空格
           listitem.ImageIndex:=8;
           next;
         end;
       end;
     finally
       tlistview(listv).Items.EndUpdate;
     end;
end;


ListView使用中的一些要点。以下以一个两列的ListView为例。
//增加一行
with ListView1 do
   begin
     ListItem:=Items.Add;
     ListItem.Caption:='第一列内容';
     ListItem.SubItems.Add('第二列内容');
   end;
//清空ListView1
ListView1.Items.Clear;
//得到当前被选中行的行的行号以及删除当前行
For i:=0 to ListView1.Items.Count-1 Do
   If ListView1.Items[i].Selected then   //i=ListView1.Selected.index
     begin
       ListView1.Items.Delete(i);   //删除当前选中行
     end;
    当然，ListView有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它赋值出来。
//读某行某列的操作

Edit1.Text := listview1.Items[i].Caption;   //读第i行第1列
Edit2.Text := listview1.Items[i].SubItems.strings[0];   //读第i行第2列
Edit3.Text := listview1.Items[i].SubItems.strings[1];   //读第i行第3列
以次类推，可以用循环读出整列。
//将焦点上移一行
For i:=0 to ListView1.Items.Count-1 Do
   If (ListView1.Items[i].Selected) and (i>0) then
     begin
       ListView1.SetFocus;
       ListView1.Items.Item[i-1].Selected := True;
     end;

    在Delphi7中，ListView多了一个ItemIndex属性，所以只要：
ListView1.SetFocus;
ListView1.ItemIndex:=3;
就能设定焦点了。

Delphi的listview能实现交替颜色么？

 //程序代码

procedure TForm1.ListView1CustomDrawItem(
   Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
   var DefaultDraw: Boolean);
var
   i: integer;
begin
   i:= (Sender as TListView).Items.IndexOf(Item);
   if odd(i) then

     sender.Canvas.Brush.Color:= $02E0F0D7
   else

     sender.Canvas.Brush.Color:= $02F0EED7;
   Sender.Canvas.FillRect(Item.DisplayRect(drIcon));
end;

    delphi中ListView的某项某列的值必须先定义然后才能使用。比如你用ListView控件建立了一个表，严格说来这个表就好比一个二维数组。 如果我们新建一行，只是第一行Caption有值，其它列为空，那也必须对后面的列执行Add('')，这相当于把空串赋给了后面的列，这样以后才能像操 作二维数组一样直接访问任意行的任意列，否则的话访问caption后面的列时会报错。这相当于对于ListView中的每一个值（某项某列的值）都必须 初始化。

Delphi中为DBGrid控件添上色彩 （转）

摘自：http://www.yesky.com/57/1952057.shtml

　　在微软软件帝国的呐喊声中，VB.net和VC#.net在短时间内拥有了一大批FANS。能在开发工具领域和微软一决高下的Borland公司也不 甘示弱把Delphi"打扮"的漂漂亮亮的，让我们这些坚定的D迷依旧信心满满，坚守这块阵地。一些对Pascal语法情有独钟或对VCL爱慕非凡的新生 力量也加入了我们阵营之中，新加入的同志大多以开发数据库类的软件做为初始的一步，这样对"数据感知"控件了解成为了必须，这其中最经常用到的要属 DBGrid。虽然原生的DBGrid功能已经非常强大，但在实际开发工作还是会碰到捉襟见肘的时候，例如将不同类型的数据用不同的颜色加以区分这个功能 就非常有用，这一功能有助于加强软件与用户的交互。本文的重点将用来解释---如何在TDBGrid中改变特定行或列或单元格的颜色。

　　准备阶段：

　　本文假设你已经知道如何将一个TDBGrid与数据库相联接，最容易的方法是使用"Database Form Wizard"，将TDBGrid与DBDemo（Delphi自带数据库中的employee.db相联接，选择除Except之外的所有字段。

　　给TDBGrid上颜色

　　・为列上色

　　第一种是最容易的一类上色，最直接的让你的用户看到，为TDBGrid中指定的某一列上色。

　　我们采用的方法是通过TDBGrid的TColumns属性来完成。步骤如下：

　 　用鼠标选择Form上的TDBGrid组件，在Object Inspector中双击TDBGrid的Columns属性打开Columns编辑窗口。（想了解更多内容查阅Delphi帮助中的"Columns editor: creating persistent columns"主题。）

　　下面你所要做的就是指定你需要改变颜色的那一行或几行的背景颜色，如果你要改变字体颜色，就将Font属性集中的Color属性修改一下。

图一

　　就是这么简单，只要轻点几下鼠标就可以了，这样修改之后的TDBGrid就不再是呆板的白色背景了。

　　・为行上色

　　第1种 如果你想要为TDBGrid中所选的某一格或某些格指定颜色，而且你不想使用dgRowSelect选项，因为你想让TDBGrid可以直接在TDBGrid单元格中编辑数据，你应该使用TDBGrid的OnDrawColumnCell事件。

　　下面我们用到的技巧可以动态改变TDBGrid中的单元格文本的颜色。

　　代码如下：

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if Table1.FieldByName('Salary').AsCurrency>36000 then //指定所需改变颜色行的条件表达式 DBGrid1.Canvas.Font.Color:=clMaroon; //指定颜色为clMaroon DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

　　上述代码执行的功能是：把薪水超过3万6千元的员工（employee）记录字体颜色用栗色（Maroon）标出来。

图二

　　第2种 如何动态改变TDBGrid中行的颜色，代码如下：

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin 　if Table1.FieldByName('Salary').AsCurrency>36000 then 　　DBGrid1.Canvas.Brush.Color:=clWhite; 　　DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

　　上述代码执行的功能是：把薪水超过3万6千元的员工（employee）记录背景用白色（White）标出来。

图三

　　第3种 如何改变指定列中某些单元格的背景色，代码如下：

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin 　if Table1.FieldByName('Salary').AsCurrency>40000 then 　begin 　　DBGrid1.Canvas.Font.Color:=clWhite; 　　DBGrid1.Canvas.Brush.Color:=clBlack; 　end; 　if DataCol = 4 then 　　DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

　　上述代码执行的功能是：把薪水超过4万的员工（employee）记录背景用黑色（White）标出来而文本用白色标出来。

　　就是这样方便，因为你使用的是Delphi，这句像在为Borland作广告了，呵呵，我的程序在Delphi7+Winxp和Delphi+Windows2000上编译通过，大家不妨一试。

为何经常是“坏学生当老板，好学生当员工”？

摘自：http://forum.esm-cn.com/FORUM_POST_1000164045_1200597005_0.HTM?click_from=1000044263,8839036274,20100917,ESMCOL,FORUM_ALERT

坏学生成功的六大因素
同学在一块谈论时经常听到某某同学现在已是老板，或已成功等信息，更有规律的是他们当时的成绩都不太好，甚至都是有名的调皮生。这令很多的人费解，其实 自古以来都存在这种现象，尤其受这种现象的误导，很多的学生及家长，都认为读书成绩好不一定有出息，当然也一度误导了曾经读书时的我。在这多年的观察与实 践总结中终于得出些心得，坏学生成功的六大因素，可供大家参考和反思，相信对以后的成功之路会有启发。

一：求生存，形势所逼
坏学生毕业的都比较早，也就是出社会比较早，他们往往是野心勃勃，可现实确竞争激烈要求甚高，好的工作几乎挂不上号。即使找到了工作也是非心所愿出于无 奈，平时花钱大自由惯啦，低俗的工作肯定不尽人意，长此以往难以满足内心的欲望。为此心生创业之念，也许就真的为以后创立了新的旅程碑。而成绩好的学生更 容易找到条件好的工作，比上不足，比下有余的安逸生活导致了缺乏创业的动力，所以学习成绩好学生给成绩差的学生打工的局面便产生了。（这样的例子不为少 见）

二：脸皮厚，不拘架子
在生意场上要的就是忍耐和热情，现在做生意都是做服务都是经营人脉。为了利益难免要点头哈腰，为了效益更要不怕批评，脸皮要厚放下架子主动出击，更所谓 山不过来我过去。这些成功要素刚好坏学生全“培养”啦！因为他们在读书时总是考不好，总是被罚或点名批评，所谓的尊严早已是荡然无存，面对批评是习以为 常，练就了一身“铜墙铁壁”。而成绩好的学生呢每次考试都很好，只要一次考的稍有不利就满心沮丧。由于平时的成绩好，一直都是家庭成员和学校同学学习的榜 样，从小就有了一种优越感，所以在步入社会后不是单位分配就是被好企业挑选中了，如想自己创业，学校学的专业又很难与现实所需对接，与人交往又总是高姿 态，导致不合群。这真是古人云百无一用是书生啊！

三：能吃苦，建立基石
坏学生在步入社会后一是学历底，二是年纪轻，所以很难找到 理想的工作。前面也提到坏的学生往往开始做的都是些粗俗底下的工作，因为形势所逼趋于无奈，只有将就干，就比如做泥工，杂工，服务生等等，他们在遇到困难 时，也只有坚持做别无选择，就比如包工头大部分都是泥工出身，华人首富最早还是做服务生造就出来的呢。而吃苦恰似一个成功者所具备的前提条件。反之成绩好 的学生在遇到瓶颈和困难时总是想到退缩，总是想到还不如打工的工资稳，容易动摇创业的决心。

四：不怕挫，习以为常
 　　挫折对于坏 的学生来说那已是家常便饭啦，在家父母骂，在校老师批评，对于外界的评论和看法早已是不屑一顾，所以在创业时遇到困难也是越战越勇。失败了再来，而成功真 的是不经历风雨怎么见彩虹，阳光也总在风雨后！而成绩好的学生面对挫折总是沮丧，总是回忆校园时的光环，很容易选择放弃来逃避。

五：敢冒险，追求快感
   有句话叫人有多大胆，地有多大产。虽然这句话不完全适合21世纪，可一个人的成功跟他的胆量是密不可分的。坏学生总是喜欢搞些恶作剧，哪怕明知不可为而 为之，即使被罚了事后还是很开心，提起自己恶作剧的“杰作”还是沾沾自喜。而当采访成功者得知大都是为了追求成功的感觉，而绝非只是停留钱的享受。成绩好 的学生做事往往是思前顾后，举棋不定，总是要把一件事情反复推敲方能定夺，当感觉万无一失时机会早已悄然离去。

六：讲义气，信任于人
坏的学生在犯错误时也相对敢于承揽责任，这些被他庇护的同学日后更是为他赴汤蹈火在所不惜。一个“大哥“的形象由此就建立啦。而做生意办企业也要能应许员 工犯 错，没有错误就代表没干活嘛，更何况怀特黑德都说过畏惧错误就是毁灭进步。而成绩好的学生呢，追求完美，为了让老师同事知道自己优秀，经常背后打小报告邀 功。这样在以后的企业管理中，也总是不应许员工犯错，总是关注员工不好的一面，在没有方式的追求完美中抹杀了很多员工的积极性。

总结：社会的发展竞争日益激烈，每个人都应不断的提升自我，正所谓经验是负债，学习是资产。只有在学习和总结中才能悟出适应社会的发展道路。只有博学的知识，深厚的文化底蕴，结合适合成功发展的因素才能走的更快更远！

一个简单的DELPHI自定义事件的例子（转）

摘自：http://blog.sina.com.cn/s/blog_5fefbf9a0100g0hg.html

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
   //定义一个事件格式，要传参数的格式 后面必须要加上of object
   TeacherArgnyEvent = procedure(ErrorCount: Integer) of object;

type
TTeacher = class(TObject)
private
    FStudentErrorCount: Integer;
    FOnTeacherArngy: TeacherArgnyEvent; //定义一个内部事件，private里的只能在TTeacher类内部调用
    procedure SetStudentErrorCount(Value: Integer);
public
    constructor Create;
    destructor Destroy; override;
    property StudentErrorCount: Integer read FStudentErrorCount write SetStudentErrorCount ;
    property OnTeacherArngy: TeacherArgnyEvent read FOnTeacherArngy write FOnTeacherArngy ; //定义一个外部的事件，在其它的对象里面可以通过FTeacher.ONTeacherArngy这样调用。读写是通过内部的FOnTeacherArngy
end;

type
TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure IfTeacherArngy(EC: Integer); //自己定义事件触发时要执行的函数，和Button控件在事件列表中双击时出来的那段代码一样，只是这里是你自己定义的，而不是DELPHI给你生成的
private
    FTeacher: TTeacher ;
public
    { Public declarations }
end;

 

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TTeacher }

constructor TTeacher.Create;
begin
FStudentErrorCount := 0;
end;

destructor TTeacher.Destroy;
begin

inherited;
end;

procedure TTeacher.SetStudentErrorCount(Value: Integer);
begin
FStudentErrorCount := Value;
if FStudentErrorCount > 3 then    //给StudentErrorCount赋值的时候，判断是否触发FOnTeacherArngy事件
    if Assigned(FOnTeacherArngy) then   //看FOnTeacherArngy是否为空，不为空则执行该事件，如果不判断是否为空，则执行下面一句的时候可能会有错误
      FOnTeacherArngy(FStudentErrorCount);
end;

{ TForm }

procedure TForm1.FormCreate(Sender: TObject);
begin
FTeacher := TTeacher.Create ;     //创建一个TTeacher的实例
FTeacher.OnTeacherArngy := IfTeacherArngy; //把FOrm1里的IfTeacherArngy过程赋值给FTeacher的OnTeacherArngy，这样它就不为空了
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FTeacher.Free ;   //窗体关闭时释放
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FTeacher.StudentErrorCount := FTeacher.StudentErrorCount + 1; //给StudentErrorCount赋值 ，我只是给他赋值，就会触发那个事件
// 有了这个类，就不用下面这一段了，给 StudentErrorCount属性赋值就能达到下面这段代码的效果。
// if FTeacher.StudentErrorCount > 3 then
//    ShowMessage('Student 错误了' + IntToStr(ec) + '次,老师生气了。');
end;

procedure TForm1.IfTeacherArngy(EC: Integer);
begin
ShowMessage('Student 错误了' + IntToStr(ec) + '次,老师生气了。'); //事件触发时的情况，和Button控件在事件列表中双击时出来的那段代码一样，只是这里是你自己定义的，而不是DELPHI给你生成的
end;

end.

（原文链接：http://hi.baidu.com/83925com/blog/item/33cda95005be365a1038c281.html）

delphi自定义事件处理（转）

摘自：http://www.51.la/report/1_main.asp?id=3200084

      为什么我们点击按钮，就会执行按钮的onclick事件？这个事件是怎么和我们自己的代码关联起来的。相信很多人都有这个疑问。 那么我们就通过一个自定义事件来了解这里面得运行原理。以乘法运算来显示，如果乘数大于100，就提示用户，太大了。这个事件用自定义事件定义。 大家先看一下最终效果，

      我添加了三个文本框，一个按钮，当第一或者第二个文本框的数>100时，点求积按钮，提示Too Big 对话框。

      完成自定义事件需要5步来做：

     1.定义TNotifyEvent类型私有变量

        

FTooBig:TNotifyEvent;

 

         FTooBig是一个指针，它可以保持事件方法的调用地址。

     2.公布一个属性

         

published
  property OnTooBig:TNotifyevent read FTooBig write FTooBig;

 

         OnTooBig这个属性用来操作FTooBig这个私有变量，因为FTooBig是个函数指针，所以但读这个变量时，也就调用了函数。

     3.定义事件处理函数

 

Code
         procedure TooBigEvent(Sender: TObject);

         procedure TForm1.TooBigEvent(Sender: TObject);
         begin
         Application.MessageBox('Too Big','Test Event!',MB_OK);
         end;

 

         这是当文本框数太大时执行的方法。

     4. 把事件处理函数赋值给TNotifyEvent私有变量

         FTooBig := TooBigEvent;

     5. 当条件符合时执行事件处理函数

 

Code
procedure TForm1.Button1Click(Sender: TObject);
var
  val1 : integer;
  val2 : integer;
  res  : integer;
begin
 val1 := StrToInt(Edit1.Text);
 val2 := StrToInt(Edit2.Text);
 if(val1<100)and(val2<100) then
 begin
 res := val1*val2;
 Edit3.Text := IntToStr(res);
 end
 else
 if assigned(FTooBig) then OnTooBig(Self);
end;

 

     下面贴出全部代码：

 

Code
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure TooBigEvent(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

     FTooBig:TNotifyEvent; 
    { Private declarations }
  public
    { Public declarations }
  published
    property OnTooBig:TNotifyevent read FTooBig write FTooBig;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  val1 : integer;
  val2 : integer;
  res  : integer;
begin
 val1 := StrToInt(Edit1.Text);
 val2 := StrToInt(Edit2.Text);
 if(val1<100)and(val2<100) then
 begin
 res := val1*val2;
 Edit3.Text := IntToStr(res);
 end
 else
 if assigned(FTooBig) then OnTooBig(Self);
end;
procedure TForm1.TooBigEvent(Sender: TObject);
begin
Application.MessageBox('Too Big','Test Event!',MB_OK);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
FTooBig := TooBigEvent;
end;

end.