starluck的专栏

今天看到优快云上一個網友問的問題，寫下了這段代碼： 我的问题是：SQL SERVER中用binary类型存储的日期，我想用delphi开发软件通过adoquery控件在查询出的记录，在dbgrid表格中显示出具体的发生日期和时间。例如在SQL SERVER中binary的期是0x01C969D24ED59A80，而在dbgrid表格中显示的格式为2008年11月11日14时22分22秒4

function GetBytes(v:String):Tbytes;begin SetLength(Result,length(V)*Sizeof(char));Move(Pchar(@V[1])^,(@Result[0])^,length(V)*Sizeof(char));end;function GetString(v:TBytes):String;var  vArr : TCharArra

procedure TForm1.Button1Click(Sender: TObject);var  i,j : integer;  exls,sheet,book: variant;begin  try      exls:=CreateOleObject(Excel.application);      exls.WorkBooks.Add;　　 //別忘了增加WORKBOOK