三少的天空

摘要： if ((ssCtrl in Shift) AND (Key = ord('V'))) then begin i_xm.Clear; str:=Trim(clipboard.AsText); i_xm.Text:=UTF8Decode(str); end; 阅读全文

摘要： function NullToSpace(V: OleVariant):String;var S: String;begin if VarIsNull(V) then S := ' ' else S := V; Result := S;end;function NullToZero(V: Ol... 阅读全文

摘要： function GetIdeSerialNumber: pchar;const IDENTIFY_BUFFER_SIZE = 512;type TIDERegs = packed record bFeaturesReg: BYTE; // Used for specifying SMART... 阅读全文

摘要： //将数据表导出excel，并打开；uses shellapi;DBGrid2Excel1.SaveDBGridAs('d:\a.xls');ShellExecute(0,nil,'d:\a.xls' ,nil,nil,SW_SHOWNORMAL); 阅读全文

摘要： function ValidatePID //本文来自Delphi之窗，http://www.52delphi.com functionValidatePID( constAPID: string): string; { 内部函数,... 阅读全文

摘要： http://topic.csdn.net/t/20030430/14/1726205.html Delphi程序员都知道，在数据库应用程序开发完成后，要发布程序需要同时发布BDE（Borland Database Engine），否则会引起错误“A Error occurred whil... 阅读全文

摘要： 想打开一个dbf文档，之前一直困惑于使用什么驱动，如何连接，参考他人的做法，原来如此简单。 edtDir.text: = opendialog1.FileName;dbdir: = ExtractFileDir(opendialog1.FileName);dbname: = e... 阅读全文

摘要： http://huzi2010.blog.163.com/blog/static/468742432010621132902/?1309176474 阅读全文

摘要： qry: = TADOQuery.Create( nil ); try lblXxxg.Caption: = '' ;lblXxxgSfzh.Caption: = '' ;lblXxxg.visible: = false;lblXxxgSfzh.Visible: ... 阅读全文

摘要： http://msdn.javaeye.com/blog/188776 procedure SetClipboardText(AStr: string ); var // SetBuffer(CF_TEXT,PChar(Value)^,Length(Value)... 阅读全文