Delphi TStream 详细介绍
Stream对象，又称流式对象，是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的统称。它们分别代表了在各种媒介上存储数据的能力，它们将各种数据类型(包括对象和部件) 
在内存、外存和数据库字段中的管理操作抽象为对象方法，并且充分利用了面向对象技术的优点，应用程序可以相当容易地在各种Stream对象中拷贝数据。
　　下面介绍各种对象的数据和方法及使用方法。
TStream对象
　　TStream对象是能在各种媒介中存储二进制数据的对象的抽象对象。从TStream 对象继承的对象用于在内存、Windows资源文件、磁盘文件和数据库字段等媒介中存储数据。
　 Stream中定义了两个属性：Size和Position。它们分别以字节为单位表示的流的大小和当前指针位置。TStream中定义的方法用于在各种流中读、写和相互拷贝二进制数据。因为所有的Stream对象都是从TStream中继承来的，所以在TStream中定义的域和方法都能被Stream对象调用和访
问。此外，又由于面向对象技术的动态联编功能，TStream为各种流的应用提供了统一的接口，简化了流的使用；不同Stream对象是抽象了对不同存储媒介的数据上的操作，因此，TStr ......

procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
   name := edit2.Text ;
   name := '%' + name ;
   query1.Close ;
   query1.SQL.Clear ;
   query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
   query1.Open ;
  
end;
select * from gjh_t where name like '+name+'
应该改为
select * from gjh_t where name like '''+name+''') ......

有关开发习惯的一些想法，如鲠在喉，不吐不快。究其发贴动机，当然不排除有骗取参与分的可能，但另一方面，也希望能给同行（念Xing）者提供一些
建议，或者参考(希望不是误人子弟)。同时，也希望各位能够就我的这些陋习，发表一点看法，给出批评和指正的意见。谢谢。
一．建立工程目录
      
首先，第一步要做的，当然是给新项目建一个单独的目录（别笑）。目录名称与项目名称同名，或者另取一个也可，只要清楚、简练。然后，在此目录中创建以下各
个目录：
       <Doc>：用来存放该项目相关的开发文档（需求说明，概要设计，详细设计等等等等）；
       <Source>：用来存放Delphi源程序中的”.Dpr”,”.Pas”,”.Dfm”等文件；
      
<Dcu>：该目录中存放”.Dcu”文件，将’.Pas’与’.Dcu’文件分开存放只是为了让Source目录的内容更加清楚一些；
       <Bin>：存放工程的输出文件，比如”.Exe&rdqu ......

Delphi U盘插入拨出检测：
1、新建工程；
2、在form1上放一个Label；
3、定义一个私有过程
     procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
完整代码如下：
unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, AppEvnts, ExtCtrls, StdCtrls;
type
   TForm1 = class(TForm)
     Label1: TLabel;
   private
     { Private declarations }
     procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
   public
     { Public declarations }
   end;
var
   Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMDeviceChange (var Msg: TMessage);
var
   myMsg : String;
begin
   Case Msg.WParam of
   32768:
     begin
       myM ......

在低版本中设定MSCOMM控件，是导入MSCOMM组件，然后就可以看见MSCOMM控件的电话的图标了，但是在DELPHI 2005或以上版本中就必须先把此控件创建到包中（BPL）然后导入BPL，那个电话图标就可以看见在工具条上了。我试了多少回才试出来的。 ......

我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Windows.Beep(1200+i_f,10+i_f);
   if i_f<2000 then
   begin
      inc(i_f);
   end
end;
===============================================
Delphi 在 SysUtils 单元定义 Beep 方法, 可以发出一个声音, 一般用于提醒和调试.
Beep 其实是调用的 API 函数: MessageBeep(MB_OK); 
MessageBeep 有下面几种用法可以调用几种不同的声音文件:
MessageBeep(MB_OK);
MessageBeep(MB_ICONHAND);
MessageBeep(MB_ICONQUESTION); {这个不响, 不知道为什么}
MessageBeep(MB_ICONEXCLAMATION);
MessageBeep(MB_ICONASTERISK);
MessageBeep($FFFFFFFF); {同 MessageBeep(MB_OK);}
Beep 同时也是一个 API 函数, 它可以指定声音的高度和长度; 因为和 SysUtils.Beep 重名了, 所以应该这样调用:
Windows.Beep(音高, 长度);
譬如: Windows.Beep(440, 2000); 会把一个国际标准音(440HZ)演奏 2 秒钟.
另外第一个参数的取值范围是: $25 - ......