- 博客(43)
- 收藏
- 关注
RSS订阅原创 Borland ALM
Borland ALMApplication Lifecycle ManagementFor Java,.Net.& C++定义CaliberRM设计Toghther开发JBuilderC#BuilderC++BuilderDelphiC++BuilderX测试OptimizeitSuiteOptimizeitServerTrace部署Borland Enterprise ServerJaneva
2004-10-15 09:31:00
814
原创 D7 语言手册 见闻
1、一个控制台程序program Greeting;{$APPTYPE CONSOLE}var MyMessage:string;veginMyMessage := Hello World!;Writeln(MyMessage);end.Save to GREETING.PAS or GREETING.DPRwin DCC32 Greetinglinux dcc Greeting2、Unit框
2004-09-29 13:19:00
1170
转载 如何获取最近插入一条数据的自增id
可以用SCOPE_IDENTITY：IDENT_CURRENT 返回为任何会话和任何作用域中的特定表最后生成的标识值。@@IDENTITY 返回为当前会话的所有作用域中的任何表最后生成的标识值。SCOPE_IDENTITY 返回为当前会话和当前作用域中的任何表最后生成的标识值。下面的是sql联机帮助SCOPE_IDENTITY返回插入到同一作用域中的 IDENTITY 列内的最后一个 ID
2004-09-13 15:45:00
1831
原创 PostMessage和SendMessage有什么区别?
在控制别的应用程序的时候，经常需要等待直到某个功能结束，例如:打开一个窗口-->等待直到窗口结束这个时候就可以用到SendMessage如果在打开这个窗口后仍然需要对该窗口的界面进行设置，比如Edit的value等等,比如：打开一个窗口-->控制窗口的control的属性这个时候就需要PostMessage使用一个钩子程序截获消息后,使用SendMessage把消息发送到主处理程序进行处理,但
2004-09-13 15:42:00
4170
2
原创 如何判断一段中文是gb3213还是Big5编码的？
//判断big5实现如下procedure TForm1.Button1Click(Sender: TObject);var i:Integer; str:string;beginstr:=該如何讓他正常怯換到繁體呢;//str:=能支持互转的软件并不多;for i := 1 to length(str) do if Not odd(i) then if Byte(str[i])
2004-09-13 14:46:00
2457
原创 关于定位文件中的位置，截断文件
procedure Seek(var F; N: Longint);定位Truncate(var F)；截断后面的，标志位文件结尾
2004-09-13 14:34:00
844
原创 如何高速操作大量数据
with ADOQ.RecordSet dobegin MoveFirst; while not EOF do begin FBegDateStrs.Add(Fields[BEG_DATE].Value); //FBegDateStrs is a TStringList FEndDateStrs.Add(Fields[END_DATE].Value); //FEndDat
2004-09-13 14:12:00
749
原创 如何在ADO中设置记录书签
这个问题问的人也很多var? bk: TBookmark;begin? if adodsVresult.Active and (adodsVresult.RecordCount > 0) then? begin??? bk := adodsVresult.GetBookmark;??? //操作数据库这里???? if adodsVresult.BookmarkValid(bk) then//
2004-09-13 13:56:00
891
1
原创 调用程序，并获得程序结束信息
procedure TForm1.Button3Click(Sender: TObject);var? ExitCode: cardinal;? ExecInfo: TShellExecuteInfo;begin? ZeroMemory(@ExecInfo,SizeOf(ExecInfo));? with ExecInfo do begin??? cbSize := SizeOf(ExecInfo
2004-09-10 17:08:00
697
原创 点中窗体来移动窗体
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture;//释放原先的 SendMessage(self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);//点中标题
2004-09-10 17:05:00
755
原创 通过发送消息enable、check鼠标指向的控件
针对想点中其它软件中的某个控件的问题var Pmouse: TPoint; hClientWindow,hWindow:Thandle;begin //enable 一个控件 GetCursorPos(pMouse); hWindow:=WindowFromPoint(pMouse); Windows.ScreenToClient(hWindow,pMouse); hClientWi
2004-09-10 17:03:00
869
原创 TdxTreeList怎样在程序中实现自动列宽
其实是自己判断了列宽自己调整的没有直接属性procedure TForm1.dxTreeList1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow:
2004-09-10 16:54:00
1077
原创 可设置进度颜色的ProgressBar控件(colorProgressBar)
unit colorProgressBar;interfaceuses Classes, ComCtrls, Graphics, Controls, Windows;type TcolorProgressBar = class(TprogressBar) private { Private declarations } Fcolor:Tcolor; proce
2004-09-10 15:13:00
922
原创 一些文件操作函数
FileAge 函数 返回文件已存在的时间 FileClose 命令 关闭指定的文件 FileCreate 命令 用指定的文件名建立新文件 FileDateToDateTime 函数 将DOS的日期格式转换为
2004-09-10 14:40:00
705
原创 网络蚂蚁"和"FlashGet"的悬浮窗
最近有网友问道如何用 Delphi 实现"网络蚂蚁"和"FlashGet"的悬浮窗口相关技巧做了整理如下:http://dev.csdn.net/develop/article/13/13175.shtm （oopsware原作）
2004-09-10 14:09:00
982
原创 ExtractShortPathName 返回一空的问题
ExtractShortPathName 是在当前驱动器上面实际情况，对于不同的机器就有可能出现不同的shortName所以文件必须存在才行
2004-09-10 13:55:00
627
原创 获取驱动器的类型
function Get_DiskSerialNo(DriveID : char) : string;var VolumeSerialNumber : DWORD; MaximumComponentLength : DWORD; FileSystemFlags : DWORD; ps:PChar; st:String; dt:DWORD;begin ps:=PChar(DriveID
2004-09-10 13:50:00
502
原创 无需Dll实现的全程鼠标Hook
该方法能够监控到form 外面的鼠标移动情况，无需Dll实现unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TBut
2004-09-10 13:38:00
636
原创 FastReport 分页
用一个叫LINER＃的变量可以分页，看看REPORT的示例中有或者解释脚本使用FreeSpace函数确定在当前页中有多少空白区域。如果不够，调用NewPage过程插入“手工分页符”并开始新一页。if FreeSpace * 5/18 < 30 then NewPage
2004-09-09 17:57:00
1975
1
原创 移动鼠标到控件 MapWindowPoints
// 移动鼠标到控件procedure MoveMouseIntoControl(AWinControl: TControl);var rtControl: TRect;begin rtControl := AWinControl.BoundsRect; MapWindowPoints(AWinControl.Parent.Handle, 0, rtControl, 2); SetCu
2004-09-09 17:47:00
1068
原创 动态调整显示器分辨率
Delphi提供了可以动态改变屏幕分辨率的函数，分别是EnumDisplaySettings()和ChangeDisplaySettings()。有了它们，编程时可以随时改变分辨率以适应要求。下面的CRTReset函数能方便实现这一功能： implementation function CRTReset(X, Y: Word): Boolean; var lpDevMode: TDe
2004-09-09 17:46:00
762
原创 截取图像一部分 TRect
procedure TForm1.Button3Click(Sender: TObject);var Bitmap: TBitmap; MyRect, MyOther: TRect;begin MyRect := Rect(0,0,100,100); MyOther := Rect(0,101,100, 200); Bitmap := TBitmap.Create; Bitmap.
2004-09-09 17:42:00
684
原创 透明的控件Groupbox,RadioGroup
interfaceuses Windows, Messages, Controls, Classes, StdCtrls, ExtCtrls;type TTransGroupBox = class(TGroupBox) private protected procedure WMEraseBkGnd(Var msg: TWMEraseBkGnd); message WM_ERA
2004-09-09 17:17:00
1822
原创 解决MDI相同的窗口被重复打开
Dll声明唯一的frmChild:TfrmChild;调用的时候子窗体的调用函数if Not assigned(frmChild) then frmChild:=TfrmChild.create(Self);try frmChild.Show;finally frmChild.free; frmChild:=Nil;end;已经创建的就不会再创建，只能Show出来
2004-09-09 16:34:00
531
原创 OleVariant类型 转化到流，用于文件的存储、读取
用流savetofile给出VariantToStream和StreamToVariantprocedure VariantToStream (const V: OLEVariant; Stream : TStream);var P : Pointer;begin Stream.Position := 0; Stream.Size := VarArrayHighBound (V, 1) -
2004-09-09 16:23:00
904
转载 简单获取sql执行时间
declare @begindate datetimeselect @begindate=getdate()select 执行时间=datediff(mm,@begindate,getdate())
2004-09-09 16:21:00
1041
原创 目录操作 直接选择目录的两种形式、强制建立多级目录
直接选择目录的两种形式(SelectDirectory)突然注意到该选择有两种样式这是由于调用的方式不同，该方法有重载var dir:string;begin Dir := C:/; SelectDirectory(FileCtrl,c:/,Dir);//1 SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, s
2004-09-07 11:41:00
637
原创 C#：方法的默认参数 (Justin Shen)
大家都知道在C++中，我们可以为方法的参数指定一个默认值，像这样：void foo(int i = 100);当我们以这种形式调用方法的时候： foo(); 实际上参数i被赋于了默认值，所以相当于调用了foo(100);然而在C#中是不支持参数的默认值的，那么如果我们要用到类似的功能应该怎么实现呢？考虑下面这个例子：class Buffer{ public Buffer(int buff
2004-09-02 11:13:00
985
原创 .NET中清空浏览器客户端的缓存
/// /// 清空浏览器客户端的缓存/// public static void ClearClientPageCache(){HttpContext.Current.Response.Buffer=true;HttpContext.Current.Response.Expires = 0;HttpContext.Current.Response.ExpiresAbsolute=DateTime
2004-09-02 11:12:00
1006
原创 ASP.NET直接下载一个文件，而不是在IE中打开它
有的时候我们不想让用户直接在IE中打开已知类型的文件，比如Word，而希望能直接下载，这时候可用下面代码来替换Response.RedirectResponse.ContentType = "application/octet-stream";Response.AddHeader("Content-Disposition", "attachment;FileName="+YourFileNam
2004-09-02 11:11:00
630
原创 Delphi 控制鼠标到控件区
procedure MoveMouseIntoControl(AWinControl: TControl);var rtControl: TRect;begin rtControl := AWinControl.BoundsRect; MapWindowPoints(AWinControl.Parent.Handle, 0, rtControl, 2); SetCursorPos(rtCo
2004-09-02 11:03:00
639
原创 打印怪异纸张问题 有时候会设置无效
用的是15×11的纸张。在delphi中自定义设置381×279.4，可打印的时候只显示左边部分。得先用Custom Size 设置一次,设为381*279.4, Apply,再换成 Default Size 设置一次，再Apply,Ok还有打印机要设为纵向打印（默认打印机）
2004-09-02 11:01:00
691
原创 怎样用openDialog选取目录
可以用 selectDirectory (須uses FileCtrl)var dir:string;begin Dir := C:/; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then showmessage(dir);
2004-09-01 21:51:00
810
转载 直接在sql语句中查询其他数据库,ODBC从其他类型库中导入数据
select * from openrowset(MSDASQL,Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:/,select * from [aa.DBF])
2004-09-01 21:38:00
707
转载 sql 语句操作数据库结构
一个常见的问题哦向表中增加一个 VARCHAR 列： ALTER TABLE distributors ADD COLUMN address VARCHAR(30);对现存列改名： ALTER TABLE distributors RENAME COLUMN address TO city;对现存表改名： ALTER TABLE distributors RENAME TO suppliers
2004-09-01 21:31:00
851
转载 About DateTime
如何得出某一周別的起始日期和結束日期周一StartOfAWeek(2004,28)周日StartOfAWeek(2004,28,7)
2004-09-01 21:22:00
553
转载 About string
替换函数ansiReplaceStr()stringreplace(memo1.seltext,chr(13)char(10),chr(0),[rfReplaceAll])一个拆分字符串的简单办法procedure TForm1.Button1Click(Sender: TObject);var st:string;beginst:=jj53*xxddx*dccd*rr3*...;st:=
2004-09-01 21:21:00
670
原创 free 多个同类控件的循环错误
循环出现的计数错误是因为free的过程改变了ComponentCount，所以只能反向freefor i := Form1.ComponentCount-1 downto 0 do begin if Form1.Components[i] is Tedit then Form1.Components[i].Free; end;
2004-09-01 21:14:00
436
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人