SQLSERVER--一些经典问题总结
2007-04-01　01:04:06
 
大中小
/**********************************/
--获得某一天所在年的第一天
declare @a datetime,@b datetime,@sum int,@num int,@res varchar(20)
select @a='1-6-1968'
select @b='2006-4-8'
select @sum=year(@a)
select @res=ltrim(cast(@sum as varchar(20)))+'-1-1'
print @res
/*********************************/
--获得某一天所在月的最后一天
declare @a datetime,@b int,@c int,@res varchar(20)
select @a='2569-8-31'
select @b=month(dateadd(month,1,@a))
select @c=year(@a)
select @res=dateadd(day,-1,cast(@c as varchar(5))+'-'+cast(@b as varchar(20))+'-1')
print @res
/*********************************/
--获得某一天所在年的最后一天
declare @a datetime,@b int,@res varchar(20)
select @a='2026-1-5'
select @b=year(@a)+1
select @res=dateadd(day,-1,cast(@b as varchar(20))+'-1-1')
print @res
/*********************************/
/*返回当前年的最后一天*/
select dateadd(year,datediff(year,'1900-12-31',getdate()),'1900-12-31')
/*返 ......

Delphi 数据类型列表
分类
范围
字节
备注
简单类型
序数
整数
Integer
-2147483648 .. 2147483647
4
有符号32位
Cardinal
0 .. 4294967295
4
无符号32位
Shortint
-128 .. 127
1
有符号8位
Smallint
-32768 .. 32767
2
有符号16位
Longint
-2147483648 .. 2147483647
4
有符号32位
Int64
-263 .. 263
8
有符号64位
Byte
0 .. 255
1
无符号8位
Word
0 .. 65535
2
无符号16位
Longword
0 .. 4294967295
4
无符号32位
字符
AnsiChar(Char)
ANSI字符集
 
8位
WideChar
Unicode字符集
 
16位
布尔
Boolean
False < True
Ord(False) = 0
Ord(True) = 1
Succ(False) = True
Pred(True) = False
1
 
ByteBool
False <> True
Ord(False) = 0
Ord(True) <> 0
Succ(False) = True
Pred(False) = True
1
 
WordBool
2
 
LongBool
4
 
枚举
 
 
 
 
子界
 
 
 
 
实数
　
Real
5.0×10-324 .. 1.7×10308
8
[精度]15..16
Real48
2.9×10-39 .. 1.7×1038
6
[精度]11..12; ......

前段时间因为项目需要，获取指定文件的图标，绕了很多弯子，现在弄出来了，跟大家共享下.
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI, ExtCtrls;
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    btn1: TButton;
    dlgOpen1: TOpenDialog;
    imgPic: TImage;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Mem : TMemoryStream;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
  FileInfo : TSHFileInfo;
  hc: TIcon;
  Bitmap : TBitmap;
begin
  Mem := Tmemorystream.Create;
  if dlgOpen1.Execute then
  begin
    FileInfo.iIcon := 0;
    SHGetFileInfo(pch ......

var
   L,i:integer;
   Ustr,str:string;
   p:char;
begin
  str:='123456789ABCDEFG'
  L:=length(str);
  for i:=1 to l do begin
      p:=str[i];
      str[i]:=str[l-(i-1)];
      str[l-(i-1)]:=p;
      if i=(l div 2) then break;
 end;
  ......

Delphi编写系统服务七：完成端口演示 收藏
 在开发大量Socket并发服务器，完成端口加重叠I/O是迄今为止最好的一种解决方案，下面是简单的介绍：
   “完成端口”模型是迄今为止最为复杂的一种I/O模型，特别适合需要同时管理为数众多的套接字，采用这种模型，往往可以达到最佳的系统性能。但是只适合Windows NT和Windows 2000及以上操作系统。因其设计的复杂性，只有在你的应用程序需要同时管理数百乃至上千套接字的时候，而且希望随着系统内安装的CPU数量增多，应用程序的性能也可以线性提升，才考虑采用“完成端口”模型。
    重叠I/O（Overlapped I/O）模型使应用程序达到更佳的系统性能。重叠模型的基本设计原理便是让应用程序使用一个重叠的数据结构，一次投递一个或多个Winsock I/O请求。针对哪些提交的请求，在它们完成之后，应用程序可为它们提供服务。该模型适用于除Windows CE之外的各种Windows平台。
    开发完成端口最具有挑战是线程个数和管理内存，创建一个完成端口后，就需要创建一个或多个“工作者线程”，以便在I/O请求投递给完成端口对象后，为完成端口提供服务。但是到 ......

Delphi编写系统服务六：在服务中使用COM组件 收藏
 在服务中调用COM组件不能像在桌面程序中直接创建，在每次创建之前先调用CoInitialize(nil)，释放的时候调用CoUninitialize。例如：调用ADO组件
var
  Qry: TADOQuery;
begin
  CoInitialize(nil);
  Qry := TADOQuery.Create(nil);
  try
    ...
  finally
    Qry.Free;
    CoUninitialize;
  end; ......