摘要：--读 TempSql.SQL.Add('Select rptblob from RPTDEF where bianh = :bianh '); TempSql.ParamByName('bianh').AsString := '8061'; TempSql.Open; TBlobField(Tem 阅读全文

摘要：procedure TForm1.SetAutoRun(ok: boolean);var Reg: TRegistry; //首先定义一个TRegistry类型的变量Regbegin Reg := TRegistry.Create; try //创建一个新键 Reg.RootKey := HKEY_ 阅读全文

摘要：uses Winapi.WinSock; function GetLocalIpList(IPList: TStrings): Integer;type TaPInAddr = array [0 .. 10] of PInAddr; PaPInAddr = ^TaPInAddr;var HostNa 阅读全文

摘要：USE [AiFashionDining]GO /****** Object: StoredProcedure [dbo].[pv_page_search] Script Date: 04/04/2018 18:20:07 ******/SET ANSI_NULLS ONGO SET QUOTED_ 阅读全文

摘要：Delphi2010小写金额转大写金额的源代码发表于2009年12月17日由admin由于从Delphi2010开始支持大字符集，原来一个汉字占２个字节，现在Delphi2010中占一个字节，所以原函数在Delphi2010下已不能用了，现将原函数修改如下： function ToBigRMB(Nu 阅读全文